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13 PRODUCT CODE: MAINDEC-11-DERHA-C-D 
ei PRODUCT NAME: RH70 FUNCTIONAL CONTROLLER TEST 
23 DATE RELEASED: JANUARY 1977 
$5 | MAINTAINER: DIAGNOSTIC GROUP 
37 
2B 
: 
31 COPYRIGHT (C) 1975, 1977, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 
aE THE INFORMATION IN’ THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
Bee NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
34 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
S 4 NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
37 THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
32 LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH 
39 THE TERMS OF SUCH LI 
40 DIGITAL EQUIPHENT CORPORATION Hee NO_RESPONSIBILITY 

41 FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
yz THAT IS NOT SUPPLIED BY DIGITA 
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46 
7 1. ABSTRACT 
49 : THIS PROGRAM TESTS THE RH70 IN THE PDP11/70 SUBSYSTEM. 
co f IT USES ANY WORKING RH70 PERIPHERAL CONNECTED 10 THE RH70 
5] UNDER TEST. IT CAN TEST UP TO FOUR RH70S CONNECTED ON THE 
52 SUBSYSTEM. ALTHOUGH THE PERIPHERAL CONNECTED IS USED, THE 
=3 PERIPHERAL IS NOT TESTED BY THIS PROGRAM. 
= 2. REQUIREMENTS 
57 2.1 EQUIPMENT 
53 | PDP11/70 COMPUTER WITH CONSOLE TELETYPE AND ANY ONE OF THE 
60 RH70 PERIPHERALS (FOR EX XAMPLE RPOY,RSO3,RSO4, TUL6). 
6 | THE PER AL MUST BE COMPLETE AND’ WORK ZtNe. "t0R EXAMPLE 
52 THE RPO PRSOS. RSO4Y MUST “Have Q SCRATCH PACK ON IT. 
= THE TU MUST HAVE A SCRATCH TAPE. 
eS | 2.2 STORAGE 
67 THIS PROGRAM HAS 16K WORDS OF MEMORY. 
65 | 2.3 PRELIMINARY PROGRAMS 
71 ALL PDP11/70 CPU DIAGNOSTICS MUST BE RUN ERROR FREE BEFORE 
7 THIS DIAGNOSTIC IS RUN. 
te 3. LOADING PROCEDURE 
a: USE STANDARD LOADING PROCEDURES FOR .BIN TAPES. 
a: 4, STARTING PROCEDURE 
80 | 4.1 OPERATIONAL SWITCH SETTINGS 
82 SWITCH USE 
ay 15 HALT ON ERROR 
pS 14 LOOP ON TEST 
ac 13 INHIBIT ERROR TYPEOUTS 
87 11 INHIBIT ITERATIONS 
ge 19 BELL ON ERROR 
89 g LOOP ON ERROR 
30 8 LOOP ON TEST IN SWR<7:0> 
3 4.2 STARTING ADDRESS 
4 START AT ADDRESS 200 --- FOR STANDARD RH70. 
95 START AT ADDRESS 210 --- FOR NONSTANDARD RH79. 
gE STARTING ADDRESS 210 SHOULD BE USE TEST 
97 ANY ONE RH INSTEAD OF ALL THE RH GIVEN BY 200 START 


EQ] 
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4.3 PROGRAM AND/OR OPERATOR ACTION 
— 2a Is PROPERLY re oe pethioeD MAKE SURE THAT THE MAGNETIC 

JP PR TATE 
STOTT ER 18 ERT Te EE A ADEREE UES 
CONNECTED TO THE RH70 

, OPERATING PROCEDURE 

S.1 OPERATIONAL SWITCH SETTINGS 
SEE SECTION 4.1 

S.é SUB-ROUTINE ABSTRACTS 
SEE SECTION 9 “SUBROUTINES” 


6. ERRORS 
6.1 ERROR HALTS AND DESCRIPTION 
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71 COPYRIGHT 1975 
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2 COPYRIGHT (C} 1975, 1977 
DIGITAL EQUIPMENT CORP. 
MAYNARD, MASS. O1 


7$4 
THIS PROGRAM WAS ASSEMBLED USING THE PDOP-i1 MAINDEC SYSMAC 
PACKAGE (MAINDEC-11-DZQAC-A4). 
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OPERATIONAL SWITCH SETTINGS 
REELEL ELAR LEAL SARA LRERELEL ALARA LEASE ASE AA LALA AL ER EELS RLR SEALE SE 
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SWITCH USE 
15 HALT ON 
14 LOOP ON 7 
13 INHIBIT OR TYPEOQUTS 
1] INHIBIT ITERATIONS 
10 BELL ON 
> LOOP ON 
: STOP PURTHER COMPARES: TF IF a S LOW 
6 YPE ALL REG. WITH ERROR E42 1 Bi 


errr tits titties tet t itis irititititittritetiirtittiirte lite! 
Soassusbasesaseetesnaunennnnneenaussnsqnasenscesumenntacsunsesenet 
23 INITIAL ADDRESS OF THE STACK POINTER ### 1000 ### 

40 MISCELLANEOUS DEFINITIONS 

46 GENERAL PURPOSE REGISTER DEFINITIONS 

Ss PRIORITY LEVEL DEFINITIONS 

68 “SWITCH REGISTER” SWITCH DEFINITIONS 

96 DATA BIT DEFINITIONS (BITOO TO BIT1S? 

124 BASIC “CPU” TRAP VECTOR ADDRESSES 
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146 


160 


199 


SLELELELLRLLRALLALLALALALAAARALAL LALA LA AALALAA AAA LALELALALALALAALERE 


TRAP CATCHER 
SLELAAAAAALELLELLLLA LAAT SELLA LA ALAA LALAAAALLLA ALA L AAA AA ALA LALA LL 


142 L UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2, HALT” 
SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
Se AE SESE HEHE HEHE EE HEHE AE ESE HE HE SEE HEHE HE HE EH HE HEHE HE HE EE EE EE 


STARTING 
FLELALELLALELLEALALALLALELERALLLALEAEREELLEALLA ALAA LALLA LALLALLLES 


1Se TARTING npDRES 20 NORMAL START 
HIS WILL ALL RPMS ON THE SYSTEM A SINGLE DRIVE AT 


STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


Sp na me oo ceases ccna seen: 
RERALALEA ERLE LEASE LEER AREA ERLE ELE L EEE RA LEAS LEE LESS ELAR EELS 
162 KT11 VECTOR ADORESS 

166 KT11 STATUS REGISTER ADDRESSES 

173 KERNEL “I" PAGE DESCRIPTOR REGISTERS 

184 KERNEL “I” PAGE ADDRESS REGISTERS 

REEKLELLAL EEL EA ERLE REAL EAE REALE RARER RELEASE EA AER ESLER A REESE EEE EE 
Seuss Sueeneeusouesseuscensecuscesusceusceuscousecensessseoneeees 


e0! THIS TABLE yh a VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM 


A TIME 


I01 


nl Ya a, MACY11 e7(732) OS-SEP-76 07:55 PAGE 8 


DERHAC .P 
a MAINDEC-11-DERHAC-A 
60 HELE HLH LLL AKL S LARA RAL LEAL HALAL LEELA L HELE REEL LEE EES ELL AL EAL S ELS 
61 2S2 ERROR POINTE 
Ha HEX EKLARL ARLHS ALE AL EL ELAR L EL AL EASE LEL ERLE RL ELE RS LAL ESLER EEL ES 
eb4 254 THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCU 
26S THE Porortsoe i OBTAINED BY USING THE INDEX NUMBER FOUND IN 
cbE LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE I 
267 NOTE]: IF SITEMB IS C THE ONLY PERTINENT DATA IS (SERRPC). 
a NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS 
270 260 EM ;;POINTS TO THE ERROR MESSAGE 
271 OH 3 ERENT 18 3 DATA HEADER 
272 DT *sPOINTS TO T ATA 
1h, DOF *sPOINTS TO THE DATA FORMAT 
so? e643 SHELA LHS HLH LEASE ARAL ERAGE LER ELE L HALAL RL EL ESSER ES AREAL ELSE ES 
7 HEL HHKLHA HAGEL ELE E REALE L ELA L LEEK ERE EE ERLE RE LEER LEER ERED 
278 1587 REGISTER ADDRESSES 
tee HELHA RL EA LRG AK HALAL EARL AL EAE L ERLE AE REELED HS LAL ELS AR ELE RE RE EEE 
281 HELHHL HLH HEL HALAL LHL EARLE ERLE LEAL EARL HAL HALAL EER ERL ERE REESE EEES 
282 1834 REGISTER TEST 
ce HELE HALE ALE ALLL ALLAH EARGAKLAAEELEA LH ALES E EL ERK ESLER L HALAL SEES 
285 1899 TEST 1 SIZE FOR RH DEVICES 
286 THIS TEST DETERMINS WHICH RH DEVICE IS ON THE SYSTEM. 
287 IF THE SYSTEM HAS MORE THAN ONE RH DEVICE La 2 ONLY ONE 
288 THE Device WILL BE USED IN THE FOLLOWING TESTS. 
2893 THE ONE THAT WILL BE USED IS THE FIRST ONE THAT IS PRESE 
230 IN THE FOLLOWING LIST 
291 RS 
232 RP 
cay ” 
oa Pee taenae ope Tepe FU STBIS,gESHRTEN 
237 FOR Re 3 AP PE, Pnet RuCTION. a Pr REGBBNEE fark I 
238 ASSUMED PRESENT AND THE FOR THE I/0 REGISTERS 
239 FILLED WITH THE APPROPTATE. ADD Ree 
at wise DRIVE TYPE REGISTER IS CHECKED TO HAVE GOOD 
302 IF THE TST INSTRUCTION TRAPS TO A NON EXISTANT VECTOR 
303 THEN A gERTLAR ATTEMPT IS MADE TO A RP CONTROL AND STATU 
204 REGISTER 1. 
ahP THEN A TM 18 TRYED. i dl 
THEN A MIXED SYSTEM WITH MORE THAN ONE RH DEVICS IS TRYE 
Of 2195 TEST 2 UNIT UNDER TEST 


3 
303 THIS TYPES THE UNIT TO BE TESTED 
th AND IS THE FIRST TEST APTER THE END OF THE PROGRAM 
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2302 


2304 


2383 
e385 


2460 
2462 


2541 
eS43 


TEST 3 BIT BANG RHCS1 


TEST 4 


TEST § 


TEST 6 


TESh eee rns atp READING OF ALL POSSIBLE BITS 


USE A PATTERN OF WALKING 1’S (1,2,4,10 ETC) 
Boas arate 
IN THIS TEST SC!TREIMCPE'DVA'BITI2!BITIO!RDY!GO BITS WIL 


BtT! Pet at "Be. CLEARED 


. FOR DEBUGGING 
THEN A RH CLEAR (RHES?_BI ) WILL 


T & 
GIVEN TO AID SCOPE SYNCS ON THE ele 
SIGNAL. 


BIT BANG RHCS2 
TES D kQBONE at READING OF ALL POSSIBLE BITS 


USE A PATTERN OF WALKING 1°S (1,2,4,10 ETC) 
BND WALKING O'S ( -2,-3,-5 
IN THIS TEST 177740 BITS WILL NOT BE WRITTEN INTO 


A YS 

IF SWITCH 14 OR 9 om 8A ARE SET FOR DEBUGGING 
THEN A 5S) WILL BE 

io AID SCOPE "SYNCS ON THE CLEAR 


BIT BANG RHCS3 
TEST LOADING AND READING OF ALL POSSIBLE BITS 


FORT a TERA OF ue KING 1’°S (1,2,4,10 ETC) 
AND WALKING 0°S (-2,-3,-5 ETC 
mo't €rT8 uti 177660 81TS WILL NOT BE WRITTEN INTO 


BITS!BITStSIT7*BITS'61T4 BITS WILL ALWAYS GE CLEARED 
TF  ouTTCH 14 0 Te OR 8 ARE SET FOR DEBUGGING 
THEN A_RH CLEAR (RHCSe BIT #5) WILL 
ce AID SCOPE SYNCS ON THE CLEAR 


BIT BANG RHWC 


TEST LOADING AND READING OF ALL POSSIBLE SITS 
IN RHWC REGIST ER. 
USE Q PATTERN OF WALKING 1°S (1,2,4,10 ETC) 
AND WALKING 0’S (-2,-3,-S ETC) 
IN THIS Test 0 0 BITS WILL NOT BE WRITTEN INTO 
AND 0 BITS WILL ALWAYS BE SET 
IF SWITCH 14 th 9 OR 8 ARE SET FOR DEBUGGING 
THEN A RH CLEAR (RHCSe BIT #6) WILL BE 
GIVEN TO AID SCOPE SYNC UN HE CLEA 


i 
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367 MAINDEC-11-DERHAC-A 
368 2518 TEST 7 BIT BANG RHBA 

370 2620 TEST LOADING AND READING OF ALL POSSIBLE BITS 

371 IN RH8A REGISTER. 

372 USE & PATTERN OF WALKING 1°S (1,2,4,i0 ETC) 

373 AND WALKING 0°S (-2,-3,-5 ETC) 

374 IN THIS TEST O BITS WICL NOT _BE WRITTEN INTO 

375 AND : BITS WILL ALWAYS BC SET 

376 AND BITOO BI WILL ALWAYS SE CLEARED 

377 F SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 

378 HEN A RH CLEAR (RHCSe BIT #5) WILL BE 

379 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 

380 SIGNAL. 

382 2699 TEST 10 BIT BANG RHBAE 

384 2701 TEST LOADING AND READING OF ALL POSSIBLE BITS 

285 IN RHBAE REGISTER. 

386 USE A PATTERN OF WALKING 17S (1,2,4,10 ETC) 

387 AND sHALKING 0°S (-2,-3,-5 

398 HIS TEST 177700 B + - L NOT BE WRITTEN INTO 
389 bp OBITS MILL ALHAY 

390 ard I BITS MILL ALHAYS BE CLEARED 

391 IF SHE TOK 14 OR 3 OR 8 ARE SET FOR DEBUGGING 

392 THEN A RH CLEAR (RHCS2 BIT #S) WILL BE 

393 GIVEN TO AID SCOPE SYNCS ON THE CLEAR 

334 SIGNAL. 

396 2784 + TEST 11 SILO TEST 1 (ONE WORD WRITE) 

397 AFTER A RH CLEAR 1s GIVEN (SET BIT #S IN RHCS2) 
298 RHCS2 IS CHECKED 10 HAVE “IR™ (BIT #6) HIGH 

399 TOGETHER WITH UNIT NUMBER 

400 ONE, WORD OF ALL FEROS IS WRITTEN INTO RHOB 

up2 "OR" (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 
403 CALLED “WAT (NO TIMING IS DONE) 

404 VER IF “OR” DOES N NOT poet WITHIN “WAT” COUNT 
uDE aN aN BEAD AND C K Oo CONTAIN 2 ROS 

40 ao arty BE AN, HECK D HAVE "IR" AND UNIT NUMBER 
408 RHCS1,RHCS3, RHBA,RHBAE,RHWC, WILL BE CHECKED TO HAVE 
403 APPROPIATE VALUES 

411 2973 +~+=TEST 12 SILO TEST 2 (ONE WORD WRITE) 

412 AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
413 RHCS2 IS CHECKED TQ HAVE “IR™ (BIT #6) HIGH 

414 . TOGETHER WITH UNIT NUMBER 

416 ON E WORD OF ALL ONES IS WRITTEN INTO RHDB 

417 “OR” (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 
418 CALLED “WAT" (NO TIMING I 

419 HOWEVER IF “OR DOES NOT SET WITHIN “WAT” COUNT 
420 7 DOWN AN ERROR IS T 


REPO 
421 RHDB IS READ AND CHECKED TO CONTAIN ALL ONES 
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425 RHCS2 WILL BE CHECKED TO HAVE “IR” AND UNIT NUMBER 
4D RHCSI AR HCS3 RHBA,RHBAE,RHWC, WILL BE CHECKED TO HAVE 
ig? APPROPIATE VALUES 
423 3144 TEST 13 SILO TEST 3 (TWO WORD WRITE) 
43] 3146 AFTER @ RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
432 RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 
433 TOGETHER WITH UNIT NUMBE 
434 : ONE WORD = S2S2S IS WRITTEN INTO RHDB 
435 > RHCSe Is CHECKED T0 10 HAVE “TR” AND UNIT NUMBER 
436 S WRITTEN INTO RHDB 
437 y "ORT 1 ca IN BF aHCSe) “is WAITED FOR BY A TRAP 
438 : INSTRU ION C 
439 RHDB IS READ AND SO HECKED TO CONTAIN S2525 
440) Ree fs CHECKED TO HAVE “IR”. “OR” AND UNIT NUMBER 
“i & RHOB 1S READ_A SECOND TIME AND CHECKED TO 
443 | RHCSe 1S "CHECKED TO HAVE “IR” AND UNIT NUMBER 
44 THEN ALL REGISTERS RHCSI, RHCS3, RHBA, RHBAE, RHWC 
145 ARE CHECKED TO HAVE APPROPIATE VALUE 
47 3416 TEST 14 SILO TEST 4 (COUNT PATTERN) 
449 3418 AFTER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
us RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, TOGETHER 
451 WITH UNIT NUMBE 
15¢ into "woe A COUNT PATTERN O THRU 7 IS WRITTEN 
454 (BIT 7 IN RHCS2) IS WAITED FOR BY A TRAP 
45S INSTRU LON CALLED “HAT 
4us6 THEN RHCSe HAVE “IR” LOW AND 
457 | TOGETHER WET THE UNIT NUMBER 
458 ren RE OMPARED TO HAVE THE RIGHT VALUE 
460 N RHC S1, RHCS A, RHBAE, RHWC ARE 
H2! CHECKED 75° HBVE the AP PROP ATE’ VALUE 
13 3808 TEST 15 SILO TEST S (FLOATING ONES) 
4ES 3810 AFTER ARH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
4B5 RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 
467 TOGETHER WITH UNIT NUMB 
468 EIGHT WORDS, A PATTERN OF FLOATING ONES (1,2,4, 10, 20. 40, 
469 3 ' IS WRITTEN INTO R 
470 (BIT 87 IN R RHC$=) is WAITED FOR BY A TRAP 
47] INSTRUCTION C 
47> THEN RHCS2 IS RHERKED To HAVE "IR™ LOW AND 
473 “OR” HIGH TOGETHER WITH THE UNI E 
474 THEN RHDB IS READ AND COMPARED TO HAVE THE 
475 RIGHT VALUE AFTER EACH OF THE EIGHT 
476 THEN RHCS2 IS CHECKED TO HAVE “IR 


———————— rr ee eee 
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480 THEN REC Pak oo HCS3, RHBA, RHBAE. RHWC ARE 
481 CHECKED 74’ MRE S THE BPPROP TATE’ VALUE 2 
rd } 
483 4227 ~=s TEST 16 SILO TEST 6 (FLOATING ONES IN UPPER BYTE) 
48S 4229 AFTER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
486  RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 
487 TOGETHER WITH UNIT NUMBER 
498 | EIGHT WORDS, A PATTERN OF FLOATING ONES IN UPPER BYTE 
4g9 400, 1000, 2000 0000, 20000, 40000, 100000 
490 1S WRITTE IN NTO R 
49] "OR" (BIT #7 IN RHCS2) IS WAITED FOR BY A TRAP - 
492 INSTRUCTION CALLED “WAT” 
493 . THEN RHCS2 IS CHECKED TO HAVE “IR™ LOW AND 
yay “OR” HIGH TOGETHER WITH THE UNIT NUMBER 
4gs THEN RHDB IS RE COMPARED TO HAVE THE 
496 RIGHT VALUE AFTER EACH “OF THE "EIGH T READS. 
497 THEN RHCSe IS CHECKED TO HA 
498 aN D UNI 
499 THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
$00 CHECKED TO’HAVE THE APPROPIATE VALUE 
02 4649 -~TEST 17 SILO TEST 7 (FLOATING O IN LOWER BYTE) 
504 4651 AFTER A RH CLEAR is GIVEN (SET BIT #5 IN RHCS2) 
cos : RHCS2 IS CHECKED TO HAVE “Zn~ (BIT #6) HIGH, 
506 TOGETHER WITH UNIT NUMBER 
507 EIGHT WORDS OF FLOATING ZEROS 177776, 177775, 1777723, 
co8 tear 17775? 177737, 177677, 177577 
cos S WRITTEN INTO R 
516 OR" (BIT “ aN RHCS2) 7 WAITED FOR BY A TRAP 
12 | t fe "Riese 1 ch RECKED TO HAVE “IR” LOW AND 
a? ITH THE UNIT NUMBER 
S14 : THEN RHOB Ba “READ en RAND COMPARED TO HAVE THE 
cis RIGHT VAL H_OF THE EIGHT READS. 
Sib THEN RHCS2 IS CHE CRED TO HAVE "IR" 
517 AND UNIT NUMBER 
18 THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
$13 ; CHECKED TO’HAVE THE APPROPIATE VALUE " 
e1 S070 TEST 20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
523 5072 AF TER A RH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
S24 wan, CHECKED 1 TO. HAY g IR” (BIT #6) HIGH, 
525 | S074 106 
Cob T WORDS, A SOA TTERNE a FLOATING ZEROS IN UPPER BYTE 
527 . 170370 177677, 175777, 173777, 167777, 157777, 137777, 
cop : IS WRITTEN I NTO RHDB 
$2 OR” (Bl ' Pe IN RHCS2) I IS WAITED FOR BY A TRAP 
31 : iI MELLON ¢ HERE TO TO HAVE “IR” LOW AND 


— * ——— - _— ae - 
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5508 
5510 


5785S: 


5787 


$959 
5961 


TEST 21 


i AT ee Pe 


RIGHT VALU AFTER EACH 0 sie ae READS. 
THEN RHCS2 CHECKED 10. HAVE 
AND UNIT 


SUNBE 
THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
CHECKED TO’ HAVE THE APPROPIATE VALUE 


RHCS1 - MCPE BIT #13 (PARITY LINE = 0) 
AN a CLEAR (SET BIT #S IN RHCS2) IS GIVEN TO © 
THEN SPHERL. CERKOR REGISTER 1) IS CHECKED TO HAVE 
1 > pAT™ (BIT #4 IN RHCS2) TO INVERT PARITY CHECKING 


2 ist Breck ies] 10" contin Be eBIT #15) 
WEAF dc, MT Tab 1N, BS SET 
GIVE AN AH CLEAR (CR - BIT #5 IN RHCS2) 


CHECK RHCS2 TO HAVE ONLY IR AND UNIT NUMBER 
arenes RHBA, RHBAE, RHWC TO HAVE APPROPIATE 


TEST 22 RHCS1 - MCPE BIT #13 (PARITY LINE = 1) 


TEST 23 


AN RH VICE GrSTERS #S IN RHCS2) IS GIVEN TO CLEAR 
ISK 


WRITE A ; "iN ADDRESS — (RHDA) 


(IN Ble = CRHCS CALLED REGISTER) 
Ay Ripe ae Bite wi , ts one tN INVERT THE PARITY CHE 


ia, ae 10 HAVE 55 Shy Meee I RHCS| 
CHECK RHCS2, RHCS3, RHBA, RHBAE, RHC TO HAVE APPROPIATS 


TEST DUPLICATED Al& (RHCS1 BIT. #8) 


CLEAR a vn gg tl BY A a CLEAR (RHCSe BIT #5) 
MOVE 40 off yf TO Al6) HCS1 

READ RH si ONTAIN rc Mart #8 AND RDY) 

READ RHBAE TO CONTAIN “1” (BIT #0 HIGH) 


MOVE 0 INTO RHBAE (WRITING 0 INTO RHBAE BIT #0) 
READ RHBAE TO 
READ RHCSI TO CONTAIN ONLY ROY (BIT #8 IN RHCS1 IS ZERO) 


a 


me re ee ee te ee eee -—- 


ee | ected 
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6079 


6081 


6199 
6201 
6208 


6319 
6321 


6415 
6417 


TEST 24 


TEST 25 


TEST 26 


TEST 27 


TEST DUPLICATED Al? (RHCS1 BIT #9) 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
MOVE 400 (ONE INTO Al7)_IN RHCS1 

READ RHCS] TO CONTAIN 1200 (BIT #9 AND RDY) 

READ RHBAE TO CONTAIN “2” (BIT #1 HIGH) 


MOVE O INTO RHBAE (WRITING O INTO RHBAE BIT #1) 
READ RHBAE TO CONTAIN 2 
READ RHCS1 TO CONTAIN ONLY RDY (BIT #9 IN RHCS1 IS ZERO) 


TEST DUPLICATED IE (RHCS1 BIT #6) 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
MOVE 100 (ONE INTO IE9 IN RHCS1 

READ RHCS1 TO CONTAIN 300 (BIT &6 AND RDY) 

READ RHCS3 TO CONTAIN "100" (BIT #& HIGH) 


MOVE O INTO RHCS3 (WRITING O INTO RHCS3 BIT #6) 


READ RHCS3 TO CONTAIN 100 
READ RHCS1 TO CONTAIN ONLY RDY (BIT #6 IN RHCS1 IS ZERO) 


RHCS1 PROGRAM ERROR (PGE BIT #10) 
AR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
SET UP FOR : 10 WORD URTTE 


SET GO" (RH (RHCS1 BIT #0) TWICE IN TWO SUCCESSIVE 
Ths SHOULD “SET Sc AND TRE IN RHCS1 
D BE SET IN RHCS2 


"fe "HECKED 
THE om: F WORDS ARE LARGE ENOUGH SO THAT AFTER 
ONE "BIS" INSTRUCTION TO SET “GO” IN RH 
THERE IS SUFFICIENT TIME TO GIVE ANOTHER “BIS” INSTRUCTI 
TO SET "GO" BEFORE THE FIRST "GO" HAS TIME TO COMPLETE 


RHCSe - BUS ADDRESS INHIBIT BIT #3 


CLEAR THE SUBSYSTEM a A CONTROLLER CLEAR (RHCSe SIT #6) 
ET UP FOR A 2 WORD WRITE FROM A BUFFER TAGGED “WRFROM” 
ie nt ee be Ba RHCS2 BIT #3 “BAI” 


R OF WRI K 

RHCS1 TO HAVE ONLY RDY AND COMMAND 
RHCS2 TO HAVE BAI 

RHCS3 TO HAVE 0 


ed —— ———_—— re ee ee eee ee eee _—- -., -_—_—e- 
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6424 


571% 


6807 


7043 


7345 


RHBA TO HAVE ADDRESS OF “WRFROM™ 
RHBAE AND RHWC TO HAVE ZEROS 


NOW SET UP READ FOR THE SAME DATA WITH 
BAI 1 a) TO READ INTO A BUFFER TAGGED “REINTO” 






AFTE AD CHE 
RHCS1 TQ HAVE ONLY RDY AND COMMAND 
RHCS2 HAVE BAI 


VE ADDRESS OF _“REINTO™ 


T 
TO HAVE 0 

RHBA. TO 

RHBAE AND RHWC TO HAVE ZEROS 

DATA IN4EINTO BUFFER IS CHECKED WITH DATA IN 

WRFROM BUFFER 


TEST 30 RHSC2 MDPE BIT #8 AND RHCS3 IPCKO BIT #0 
GEAR. T Hy, thies3 Biro BY . CONTROLLER CLEAR (RHCSe BIT 


MOVE ALL ZEROS 0 RNB ONCE 
THIS 






D SET TRE Sc IN RHI 

READ RHDB THIS SHOULD SET MDPE (RHCS2 BIT #8) 
CHECK RHCS1 FOR RDY (BIT #7), TRE (BIT #14), SC (BIT 
ACLRE (RHCS2 BIT BIT #5) Is GIV ven 
CHECK Ancol RHC. RH RHCS3, RHBA, RHBAE, RHWC 


TEST 31 RHSCe MOPE BIT 88 AND RHCS3 IPCK] BIT #1 
CLEAR THE cote af CONTROLLER CLEAR (RHCS2 BIT 


HCS1 
K "RHCS F ROY (BIT IT 87), TRE {BIT 814), SC CBIT 
‘ * \ es 
ori (RHC? ge 5) 16 GIVEN 
L ERRORS ARE C 
CHECK RHCS1, RHCSE. AREHCSS, RHBA, RHBAE, RHWC 


TEST 32 RHSC2 MDPE BIT #8 AND RHCS3 IPCKe BIT #2 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT 
SET IPCK2 (RHCS3 BIT #2) 
HOVE ALL ZEROS INTO RHOB_ TWICE 
THIS SHOULD NOT SET TRE SC IN RHCS1 
READ RHDB ONCE THIS SHOULD SET MOPE (RHCS2 BIT #98) 
CHECK RHCS1 FOR RDY (BIT #7). TRE (BIT #14), SC (BIT 
READ RHDB A SECOND TINE + CHES ECK RHCS1, RHCS2. RHCS3 





CL 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


TEST 33 RHSCe2 MDPE BIT #8 AND RHCS3 IPCK3 BIT #3 
CLEAR THE ond EM BY A CONTROLLER CLEAR (RHCS2 SIT 
SET IPCK3 (RHCS3 BIT #3) 
ve ALL ZEROS int ape TWICE 
THIS SHOULD NOT C IN RHCS1 
READ RHDB ONCE THis SHOULD SET MDPE (RHCS2 BIT #9) 


eS) 


S 


e- 


#S) 


#1S 


#5) 


#5) 


——  —  — - 
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7648 
7650 


7881 
7883 


8114 
8116 


6347 


TEST 34 


TEST 35 


TEST 36 


TEST 37 


CHECK RHCS1 FOR ROY. (BIT #7), TRE (BIT #14), SC (BIT #15 
READ RHDB A SECOND TIME. aSHECK RHCS1, RHCS2, RHCS3 

"CLR" (RH HeSe BIT 8 #5) ) IS ¢ 

ALL ERRORS 

CHECK RHCS1, RHCSS. MRCS, RHBA, RHBAE, RHWC 


RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #12 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT as 
wee TEN E NINE yt : ot ALL NINES ON TO THE DEVICE 

SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 

ODD WORD BOUNDARY 

ee al BOLO NY WRITE CHECK WITH RHBA FROM AN 


THIS a SET WCE OW CRHCS3 BIT #12) 


AND WCE (RHCS2 & 

"CLR" (RHCSe BIT #5) IS GIVEN 

ALL ERRORS ARE CLEARED 

CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #le 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2e BIT #S) 
WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 
a ane DO ie CHECK ON THAT WORD FROM AN 
DO A ONE WORD URITE CHECK WITH RHBA FROM AN 
ODD _ WORD BOUNDARY 
THIS SHOULD SET WCE ata (RHCS3 BIT #le) 
AND a (RHCSe BIT 
(RHCSe BIT #5) "Ts GIVEN 
ALL ERRORS ARE CLEARED 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #1i 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT aS 
WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 

Pen aca DO ot CHECK ON THAT WORD FROM AN 

DO “ ONE WORD MRITE CHECK WITH RHBA FROM AN 


N WORD 
THIS SHOULD T We EW (RHCS3 BIT #11) 
D WCE (RHCSe BIT #14 

"CLR" (RHCS2 git, 22 IS GIVEN 

CHECK RHCS1, RHCS2, RHCS3, RHSA, RHBAE, RHWC 


RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 








E02 
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D WORD BOUNDARY 
FROM AN ODD WORD BOUNDARY 

He Sin a NOT SET RHCS3 BIT #10 DBL 

CHECK RHCET RHCS2 , RHBA, RHBAE , RHWC 


83921 TEST 43 TEST DBL (RHCS3 BIT #10) TEST D 








is en ae AR THE SUBSYSTEM BY A CONTROLLER C EAR (RHCS2 BIT a 
| 

oy ieYTE NINE HORD OF ALL NINES ONTO THE B = 

ree ET UP’ 10 DO RITE CHECK ON THAT WORD FROM 

z54 ay ONES WBRD RT TE CHECK WITH RHBA FROM AN 

THIS D SET WCE EW (RHCS3 BIT #11) 

ses AND Sach 

758 “ "CLR" (RHCSe BIT #5) IS GIVEN 

759 ALL ERRORS ARE D 

750 CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHIC 

762 8581 TEST 40 TEST DBL (RHCS3 BIT #10) TEST A 

764 9583 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 

Sep say SET UP FOR A NINE WORD WRITE FROM AN EVEN WORD BOUNDARY 

77 A NINE WORD WRITE FROM AN EVEN WORD BOUNDARY 

768 THIS, SOU SHOULD NOT SET RHCS3 BIT #10 DBL 

z70 CHECK RHCSI, RHCS2, RHBA, RHBAE , RHWC 

f 

i7e 9694 TEST 41 TEST DBL (RHCS3 BIT #10) TEST B 

774 9696 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 

a7 Bae UP FOR @ TEN WOR QlRITE FROM AN EVEN WORD BOUNDARY 

N WORD WR OM AN EVEN WORD BOUNDARY 

777 ‘ea THIS SHOULD SET AueS3 Nort #10 DBL 

278 = CHECK RHCS3 

73 - . CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

781 | geos -«*‘TEST 42 TEST DBL (RHCS3 BIT #10) TEST C 

723 9610 CLEAR. THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 

764 SET WRITE FROM AN OD 

785 

7B, 

797 

729 

789 

796, 


73! 

795 9923 CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5 
793 SET UP FOR A UBLEVEN WORD WRITE FROM AN EVEN WORD 90: UNDAR 
794 DO A ELEVEN WRITE FROM AN EVEN WORD BOUNDARY 

es THIS SHOULD NOT SET RHCS3 BIT #10 DBL 


CHECK RHCS3 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


> 
to 


i 
S 


: 


Gress 


DOI 


ep apetpetepetetepete¢ it itat.. 
b+ b= 0 = b+ b-* b= = 0- + ph 
WMD NMu £Wru- Cc 


ese 


? 


| Readies 
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3034 


- 9036 


9153 
9155 


9268 
9270 


9381 
9383 


9495 
9497 


9802 
9508 


TEST 44 


TEST 45 


TEST 46 


TEST 47 


TEST 50 


TEST DBL (RHCS3 BIT #10) TEST E 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 SIT aS) 
SET UP FOR A_TEN a a ee FROM AN EVEN WORD SOUNDARY 


ft hls Be 
DO A TEN WORD FROM AN EVEN WORD BOUNDARY 
HIS SHOULD NOT SET RHCS3 BIT #10 DBL 


K 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
TEST DBL (RHCS3 BIT #10) TEST F 


CLEAR THE See EN Bos BY A CONTROLLER CLEAR (RHCS2 BIT sf) 
SET UP FOR A WORD WRITE FROM AN ODD WORD BOUNDARY 
DO A ELEVEN WORD WRITE FROM AN ODD WORD BOUNDARY 

TH J setae SET RHCS3 BIT #10 DBL 

CH RHC 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


TEST DBL (RHCS3 BIT #10) TEST G 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #6) 
SET UP_ FOR A NINE a READ FROM AN EVEN WORD BOUNDARY 
0 A NINE WORD READ FROM AN EVEN WORD BOUNDARY 

HIS SHOULD NOT SET RHCS3 BIT #10 DBL 

CHECK RHCS3 
CHECK RHCS1,RHCS2, RHBA, RHBARE , RHWC 


TEST DBL (RHCS3 BIT #10) TEST H 


CLEAR ye eS VS TEn BY A CONTROLLER CLEAR (RHCSe BIT #5: 
SET UP FOR A TEN WORD READ FROM AN EVEN ed BOUNDARY 
DO A TEN WORD READ FROM AN EVEN WORD BOUNDAR 

THIS SHOULD SET RHCS3 BIT #10 DBL 


CK 

CHECK RHCS1,RHCS2, RHBA, RHBRE , RHWC 

TEST DBL (RHCS3 BIT #10) TEST I 

a at THE SUBSYSTEM BY A ree CLEAR (RHCSe BIT aS) 
T UP FOR A TEN WORD READ FROM AN ODD WORD BOUNDARY 

BO A TEN WORD READ FROM AN ODD WORD BOUNDARY 

He Ms NOT SET RHCS3 BIT #10 DBL 


CHECK RHCS1,RHCS2, RHGA, RHBARE . RHWC 


TEST S1 TEST OBL (RHCS3 BIT #10) TEST J 
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9610 


9721 
9723 


9835 
9837 


9955 
9957 


10C68 
10070 


i018] 
10183 


TEST Se 


TEST $3 


TEST S4 


TEST SS 


TEST S6 


SEY Up FoR A ELEVEN GORD Reno FRON AN EVEN UoeD BunCAR 
THIS SHOULD NOT SET PRHCSS ei! tt ba 

CHECK RHCS 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

TEST DBL (RHCS3 BIT #10) TEST K 


CLEAR ie SUBSYSTEM BY A CONTROLLER an ten (RHCSe BIT #5) 


ET UP F READ FROM AN ODD WORD BOUNDARY 
0A LEVEN A YORD "READ. FROM AN ABD "WORD OQUNDARY 

! v3 SH aes SET RHCS3 BIT #10 DBL 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC > 


a. 


TEST DBL (RHCS3 BIT #10) TEST L 


oat THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
SET UP FOR A TEN WORD READ FROM AN EVEN WORD BOUNDARY 
hh pat IN RHCS2 BIT 


ace 
DO_A TEN WORD READ FROM AN EVEN WORD BCUNDARY 
THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
CHECK RHCS3 - 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


TEST DBL (RHCS3 BIT #19) TEST M 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 


Bb a One oko TRuYE" REVERSE FROR an EVEN ond BOUNGRRY 


cH 25 ae T RHCS3 BIT #10 
CK RHC i, RHCS2 , RHBA, RHBAE , RHWC 
TEST DBL (RHCS3 BIT #10) TEST N 


sat 1 SUBSYSTEM BY A SON LED CLEAR {RHCSe BIT #5) 
SET aftr FOR A TWO WORD WRITE REVERSE FROM AN EVEN WORD GO 
me WO WORD WRIT Aa FROM AN EVEN WORD BOUNDARY 
HIS SHOULD NOT SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCSe, RHBA, RHBAE , RHWC 

TEST DBL (RHCS3 BIT #10) TEST © 


CLEAR THE eg XA BY A CONTROLLER CLEAR (RHCS2 SIT #5) 
SET UP FOR A TWO WORD WRITE REVERSE FROM AN ODD WORD BOU 
DO A TWO WORD WRITE REVERSE FROM AN OOD WORD BOUNDARY 
THIS SHOULD SET RHCS3 BIT #10 DBL 

CHECK RHCS 

CHECK RHCS!1,RHCS2, RHBA, RHBAE , RHWC 


MBINDEC-11-DERHAC-A 
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het 0.0.0.0.0.0.0 
b+ b= 6 0 b= bb - 
OwWDOr Ou £wru-Ow 
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10295 


10297 ° 


10409 
10411 


10S2e 
10524 


10528 


10642 
10644 


10761 
10763 


TEST 57 


TEST 60 


TEST 61. 


TEST 62 


TEST 63 


TEST DBL (RHCS3 BIT #10) TEST P 


CLEAR THE yy tla BY A ree ecee CLEAR (RHCS2 BIT ¥s 
SET UP FOR A THREE WORD WRITE REVERSE FROM AN EVEN WORD 

DO A THREE WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
THIS SHOULD SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


TEST OBL (RHCS3 BIT #10) TEST @ 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT aS) 
SET UP FOR A THREE WORD WRITE REVERSE FROM AN ODD WORD 8 
DO A THREE WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


TEST DBL (RHCS3 BIT #10) TEST R 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #S) 
SET UP FOR A _ TWO WORD ts TE_REVERSE FROM AN EVEN WORD BC 


B 
DO A THO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
CHECK’ R 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
TEST DBL (RHCS3 BIT #10) TEST S 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RUCS2 BIT #5: 
SET UP FOR A NINE WORD READ REVER NEY N WORD BO 
DO A NINE WORD REVERSE F On Bh EVEN AOR OUNDARY 
THIS SHOULD SET RHCS3 BIT #10 D 

CHECK RHCS3 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


TEST DBL (RHCS3 BIT #10) TEST T 


cag THE SUBSYSTEM ONT ROLLER. LEAR (RHCS2 aT tH 

an FOR A TEN WOR "REA REVERSE FROM AN EVEN WORC 
TEN WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 

THIS SHOULD NOT SET RHCS3 BIT #10 DBL 


CHECK RHCS3 
CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


Rp — 
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10879 


10881 


10998 
11000 


11117 
11119 


lllee 


11235 
11237 


11362 


TEST 64 


TEST 65 


TEST 66 


TEST 67 


TEST DBL (RHCS3 BIT #10) TEST U 


CLEAR a BY A of REVERSE FOR CN COO riCna Baan 
BO AT A TEN WORD READ REVERSE PROM AN ODD WORD BOUNDARY 
THIS ee SET RHCS3 BIT #10 DBL 


CHECK 
CHECK Rice CS2, RHBA, RHBAE. RHWC 
IF MAG. cl, ANF eee THIS TEST IS NOT DONE 


TEST DBL (RHCS3 BIT #10) TEST V 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
SET UP FOR A ELEVEN WORD READ REVERSE FROM AN EVEN WORD 
DO A ELEVEN WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 
THIS SHOULD SET RHCS3 BIT #10 DBL 

CHECK RHCS1,RHCS2, RHBA, RHBAE. RHWC 

IF MAG. TAPE NOT USED. THIS TEST. fs NOT DONE 


TEST DBL (RHCS3 BIT #10) TEST W 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
SET UP FOR A ELEVEN WORD READ REVERSE FROM AN ODD WORD 8 
DO A ELEVEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 


THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
CHECK RHCS3 
CHECK RHCS1.RHCS2, RHBA, RHBAE.R 

IF MAG. TAPE NOT USED. THIS Tést fs NOT DONE 


TEST DBL (RHCS3 BIT #10) TEST X 


Saat THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
SET UP FOR A TEN WORD READ REVERSE FROM AN ODD WORD BOUN 
WITH BAI IN RHCS2 BIT #3 SET 

DO _A TEN WORD READ REVERSE FROM AN ODD WORD SOUNDARY 
Nee re NOT SET RHCS3 BIT #10 DBL 


GEEK ROS] RACED, Be eB this tect Ts NOT DONE 


TEST 70 END OF 0 


TP hidte Be el H THEN THe. PROGR 


JUMPS TO TEST @ 
END PASS IS REACHED ORLY AFTER ALL RH ARE COMPLETE 
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11400 


11439 


11655 


11704 


LLFAALAARAALAEAAALLAA LA LALA RASA LARALARALLAAAAALERALALERALALALALAELELSE 


END OF PASS ROUTINE 
HERA AL AEE AEE EERE ERE E ERLE ALE EL ELE AL EL ERLE ESSE ES 


11402 INCREMENT 3 PASS + lat (SPASS) 


IF THERES PRES BXXXXX" (MHERE XXXXX IS A DECIMAL NUMBER) 
F THERE ISN'T JUNP TO TST2 


sesoranarsnenaneevenetanenasovsssvsesveseetsnsnanees 


SUBRO 
HKAALALKLLLAAAALAAAAAERSAAAALAALALAALALALLALALRALELELAEALLLLELLEES 


He HEHE HEE HEHE HEHE HEHE HEHE AE HEHE HEHE HER EH EEE EEE EEE EE EE EES 
RS DATA TRANSFER SUBROUTINE 
HSE IEE HEE SESE AE SESE SE SEAR SEE MEE HEE EME HE EAE AE HEE HEHE HEHEHE EE EE EEE EEE EE 


11657 THIS SUBROUTINE WRITES OR READS OR DOES A 
WRITE CHECK ON CYLINDER 0 TRACK O SECTOR O 
TA ps THE RH REGISTERS ARE APPROPRIATELY 


WHEN T RETURNS FROM THIS SUBROUTINE TO THE 
MAIN PROGRAM IT MEANS THE TRANSFER IS COMPLETE 


THE CALL IS BY A JSR RO,aCOMND COMAND 
LLRAEAL ALEK A EARLE EAE EERE AEA EKER LEER EERE AERA EERE ERE EEE 


RPOY DATA TRANSFER SUBROUTINE 
RERALAL EEL ERLEE ERLE L EKER EERE EERE ARLE A RELL EL ESLER EEL EE 


11706 THIS S ROUT OR Oo. WRITE/READ/WRITE CHECK ON THE RPOY CYLIN 
TRACK CTO 
11708 IT ASSUMES THE RH REGISTERS ARE APPROPRIATELY FILLED. 
WHEN IT RETURNS FROM THIS SUBROUTINE TO THE MAIN 


PROGRAM IT MEANS THE COMMAND IS COMPLETE 
THE CALL IS BY A JSR RO,JCOMND COMMAND. 


MAINDEC-11-DERHAC-A 
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11758 


11985 


12051 


KERALA L EAA EKA EEA ERA EAL EA LEA ERLE E AERA EERE EEE E AEE EE EEE EEE EE EES 
TMO2 DATA TRANSFER SUBROUTINE 
REEL AL RAKE KEELE A EE LEE LEAL ALE R AEA EE ERE EEE EEE EERE ERE EAE EEL ES 


11760 THIS SUBROUTINE WRITES/READS/WRITE CHECKS ON THE TMO2-TL 
ON THE FIRST BLOCK FROM BEGINNING OF TAPE (BOT) 


11762 IT ASSUMES THE RH REGISTERS ARE Pen ee FILLED. 
WHEN IT RETURNS FROM THIS SUBROUTINE TO THE 
MAIN PROGRAM IT MEANS THE COMMAND IS COMPLETE. 


THE CALL IS 
JSR RO, JCOMND 


SiS RETIN kbalMNEMaRE SPEIPE ETE OE 


1198S =$RXRRKKHAAKAKAR ALAS ER RHEE EES 


KLLALLLLALALLLELAAAALAALAAALLLALAAAAELALALALALLLLALELLLLELAELLLEE 


SCOPE HANDLER ROUTINE 
HHA HEHEHE HER HEHE HEHEHE HEE HEHE HEE HEE EE ERE R LEER EE ES 


11987 se a mo the ae Ente sh are eg te IT WILL INCREMENT 
Ate D _— (DISPLAY<7 


2 s Ral setioa [: ESS SBEPeh had Rt ML 


Suli= =I iNet 1 [TeRaTIONS 
SWOS=1 LOOP 
SWOS=1 LOOP oN TEST IN SWR<7:0> 


SCOPE ; ; SCOPE=IOT 


KARL ELEL EL EERE ELL EAA ELE R EARLE LEER ERLE AERA E REL ER LAR ELER EEE EL ES 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
He HEHE HEHE HEHE HEHE EE HE EME AE HEHE MEME AE HEHE AHEM HR EAR E EL REE REESE 


12053 THIS ROUTINE IS Bake TO CHANGE A 1GoBIT INARY SER TO A_S-DIG 
SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPE ON WHETHE 
NUMBER + POSITIVE OR NEGATIVE A SPACE OR A MINUS “SIGN WILL BE T 
BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS 
> tere WITH SPACES. 
MOV NUM, -(SP) ;;PUT THE BINARY NUMBER ON THE S 
TYPOS :;G0 TO THE ROUTINE 


( 

.. 
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1090 MAINDEC-11-DERHAC-A . 

1091 Car ce ee | 

1098 12149 TYPE ROUTINE | 

tags KLLAAAAAALARRAAAAA ALLA LAAAAAAAAALELALAEAALARERALALLAAALALAAALALLZESE 

4 

1095 12121 NE_TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERM WITH A O 

1036 pROUTINE WILL Theta a, NUMBER - orn NLL CHARACTERS A Art cr A ALINE 

1098 NOTE?: FILLS CONTAINS "THE. NUMBER: OF FILLER CHARACTERS. REQUIRED 

Hea NOTES: S$FILLC CONTAINS THE CHARACTER TO FILL AFTER. : 
101 CALL: | 
188 1) USING A TRAP INSTRUCTION 
103 TYPE ,MESADR ;;MESAOR IS FIRST ADDRESS OF AN ! 
fr TYPE : 

MESADR 


2) USING A JSR INSTRUCTION | 
MOV Pa,°(S Ls any PROCESSOR STATUS WORD ON | 
Pee anne PC, STYPE 


sie TRST ADRESS oe MESSAGE | 


RKKAAALARAALLRARLAA LALA LA RLLAKLLAAASELALELELAAALLALAALARALAALLES 


12192 TTY INPUT ROUTINE 
RELA ERE EEE EK RARE EERE EAA EE AKER AE EE REEL EL EL ELE 


12201 ##TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
Ne THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


JSR PC, STKINT 
RE TURN 


12218 * SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
ry READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


T IN THE QUEUE. 
IF THE CHARACTER IS A “CONTROL-C™ (tC) STKINT IS CALLED AND 
UPON RETURN EXIT IS MADE TO THE “CONTROL-C™ RESTART ADDRESS (OPE : 


1224S THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
RDCHR ;;GET A CHARACTER FROM THE QUEUE 
RETURN HERE ;; CHARACTER IS ON THE STACK ! 
;;WITH PARITY BIT STRIPPED OFF 
12266 lig ROUTINE WILL INPUT A STRING FROM THE TTY 
;; INPUT A STRING FROM THE ITY 


ROLIN 
RETURN HERE ; ADDRESS OF FIRST CHARACTER WIL 
>; TERMINATOR WILL BE A BYTE OF A 


+--+ &--b— &— b-- b— b-* b= bb = 2 2 2 2 2 0 2 2 2 0 2 2 2 2 2 2 2 9 9 2 bs bs 9 —o b+ 2 9 fp pe 9 
> -- b—- 6 b— b-—- b— —* — —  2  2 8— 2 2~ - 9 9 b—- 8s = 9 = pe pb 9 pe pe 
WOW ONOU LS WO WON MUI WfH-O OONIC UI 


4 -£ ow tet tr pe ft eet nn ete tt AGA A shed gt tage -- +b b= + = -- (9 OOO 


mM OWONOU 
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1145S 12303 READ AN OCTAL NUMBER FROM THE 
tas LAKRAAAKARAARALALALAAALAAALALA AA LALA LA LALERALAAALARALARAAALARLALE 
da 7 
1148 12305 THIS gg to WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
CHANGE IT TO BINARY. 


HAN 

THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE oo 
OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A “?" WILL BE TYPE 
FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUS 
an BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RE 


RDOCT ;;READ AN OCTAL NUMBER 
RETURN HERE ;;LOW ORDER BITS ARE ON TOP OF T 
;;HIGH ORDER BITS ARE IN SHIOCT 


HLAKARALAAAAA ALAA LALLA AAALAALELAAELELALELALLLA LALA LER LLL LALALALLLLEE 


12357 ERROR HANDLER ROUTINE 
$e HSE HE HEHE A HE HE HEHE HE HE HSE HE HE HEE HE HEE HE HE HEHE HEHE HEHE HEHE HEE HEHE HEE HH EE EES 


12359 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
he Aig ear Ye ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
THE WITCH Gp oNs OBROV IDED BY THIS ROUTINE ARE: 
Suis! HALT ON ERR 


HALT CAN OCCUR BEFORE AND AFTER THE ERROR TYPEOU 
SWi3=1 INHIBIT ERROR TYPEOUTS 
SWiO=1 BELL ON ERROR 
SWO9=1 LOOP ON ERROR 
ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 
He HEHE HEHEHE HEHE HEME HE HE HE HE HEE HEHE HEHEHE HE HE HEE HEE HE HEE HEE EE ERE EEE EEE 


12401 ERROR MESSAGE TYPEOUT ROUTINE 
9 HSE HEHE HE HE MAE HE HE HE MEE A HE EH HE HE HE HE SEE EH HE Ee A HEE a a HE HE HE EEE 


12402 THIS ROR 1S 10 Be REPOR “ITEM ila 4 ( 4 TO pe TERI INE 
ERROR ORTED. IT THEN O HE “ERROR T fee 


Aes, NS REEMA BBG rear erawe, = om 
ALL RE FoF ache ET me, Su To BEPOR REP P TING THE ERROR 


12409 RECY OND IF T hen ony ITEM N 
AS San the eee {ous ERROR, The Nm le THe bath WILL YPED 


L2GC7 —«_—« HAE HHA AAA RARER RARER SAAS EER R ARERR RASS RARE ER EEREEE 
ee eee eee eee tet ett ett ett e tte tet ttt tities ttt ttt ittttit 








MAINDEC-11-DERHAC-A 
DERHAC.P11 


1194 
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—— 
3-4 -teted-+-tob-+-4-4-Sehed-+-4-4-4-4-Leded-teh-tol-tet-t-ebeb bbb bEbb EEL rte ree EEE EEE Doe tS 
12631 BINARY TO OCTAL (ASCII) AND TYPE 


P SSEESAHEEASEASSONSESERSOSSEASEESEAEASSESESEEEEOSEEEOEREEEOOEEOES 
12633 THIS ROUTIN USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-0 
OC TAL ASCIT) RUMBER AND TYP Bi Ze 


$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 
MOV NUM, -(SP) Lg ® TO BE TYPED 


-Bvte ; iNET 10°¢ & FOR RUNBER OF DIGITS 


;;L=TYPE LEADING 
“HERE RESS LEADING A 2ER 


STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE 
Ne OR STYPOC 


MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPON 


;;CALL FOR TYPEOUT 
ae ree HERE FOR TYPEOUT OF A 16 BIT NUMBER 


MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
TYPOC ;;CALL FOR TYPEOUT 


KHAARAARLLARAAAAAAE LEAK LAAAAAALALALARALLERELEAALALLALELELELALLLLELE 


12709 TRAP DECODER 
HEHE HEHE AE HEHE HE HEE HE AE EME HE EHR HEE AE SHE HE HE HE HE HE AE HEE A HE HE HE EE HEE EE EE a 


12711 THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTIO 


GP THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED 1 WiLL 


GO TO THAT ROUTI 
SucenpeseseSUSOSUOSERSSUESRREORIUOSEEOSESRSEEEEEODEEORESOSNODIOGS 


12724 TRAP TABLE 
HEHE HEHE HEHE HE HEHE HEHE HE HE HE HE MEE HE AE HE EEE EERE EERE EE EELS 


12726 THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLE 


——_— ES ee ee rr ee ee - 


MRINDEC-11-DERHAC-A 
DERHAC.P11 
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MAINDEC-11-DERHAC-A 
Sibbiiddidtdeddttdbtdtidttbittiiteett ete tte tT rer i tl S tS fet See SS 
12746 POWER AND UP ROUTINES 
Se He HEHE He SESE HEE HE EE HEHE HE HE HEHE AE HEHEHE HEHE HE HEE EEE HEE HEE EEE EE EE 


12786 KLLLAALLLALALAALAAALALALAAASLAAAELAALAAALLLLAAALAAESAELALASLLE ES 
LLAALAALAALLALAALASRALAALA LALLA RAALLL AAA LA LELAERALELELALALASLES 


MA INDEC-11-DERHAC-A 
DERHAC. PLL 


001008 


000911 


177570 


sa 


000007 


000050 


“, 
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* shoe MAINDEC-11-DERHAC-A 
OPYRIGHT (C) parse dace 


pic een CORP. 
RAYNARD, MASS. 01754 


THIS PROGRAM WA Boe BLED YS iS NAR THE POP- 7! MAINDEC SYSMAC 
; HPACKAGE (MAINDEC-11-DZQAC-C1),MAR 24, 1976. 


- SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 LOOF oh ERROR 


NHIBIT ERROR TYPEOUTS 
Iara A BRB tONs 


Me OK ie PK RC aoe eC oe oe 


LOOP ON ERROR 
LOOP ON TEST IN SWR<7:0> 
A FURTHER COMPARES IF SWO8 IS LOW 
TYPE ALL REG. WITH ERROR IF SWS LOW 
‘SBTTL BASIC DEFINITIONS 


;*INITIAL ADDRESS OF THE STACK POINTER ### 1000 ### 


(26 one @ee ewe@ee ee @e ee @2e @e ee 


STACK= 
-EQUIV EMT, ERROR »:BASIC DEFINITION OF ERROR CALL 
-EQUIV IOT, SCOPE ::BASIC DEFINITION OF SCOPE CALL 
; SNISCELL ANEOUS DEFINITIONS 
HT= --CODE FOR HORIZONTAL TAB 
LF= {2 -:CODE FOR LINE FEED 
CR= 15 ;;CODE FOR CARRIAGE RETURN 
CRLF= 200 ;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 : t PROCESSOR STATUS WORD 
-EQUIV PS.PSW 
STKLMT= 177774 3 STACK LIMIT REGISTER 
PIRG = 177778 ;§ PROG RAM I NTERRUPT REQUEST REGISTER 
OSWR= 177570 ; HARDWARE SWITCH REGISTER 
ODISP= 177570 : + HARD HEROLARE ISPLAY REGISTER 
; ¥GENERAL PURPOSE REGISTER R DEEINI TIONS 
RO= %0 NERAL R GISTER 
Rl= %1 NERAL REGISTER 
Re= re ene REGISTER 
R3= %3 33 GE RAL REGISTER 
RY = “4 -: GENERAL REGISTER 
RS= “4S »:GENERAL REGISTER 
Rb= “6 >: GENERAL REGISTER 
R7= “7 >: GENERAL REGISTER 
‘EQUIV Rb,SP ;;STACK POINTER 
-EQUIY R7,PC + PROGRAM COUNTER 
-xPRIORITY LEVEL DEFINITIONS 
PRO= 0 »:PRIORITY LEVEL 0 


MAINDEC-11-DE 
DERHAC.P11 


i302 
1303 
1 
1 
i 


RHAC-A 


MACY 


BASIC DEFINI 


000040 


000092 
000001 


C000 


0 
000002 
000001 


T 


27(732) 


ONS 
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‘A ape REGISTER” SWITCH DEFINITIONS 
owiS= 0 


PRi= 40 
PRe= 100 
PR3= i 
PRY= 0 
PRS= 240 
PRE= 300 
PR7= 340 
l 10000 
SWl14= 40000 
SWl13= 20000 
SWi2=  1Q000 
-~SGWll= 4000 
SW10= 2000 .- 
SWOS= 1000. 
SWO8= 400 
SWO7= e200 
SWOb= 100 
SWOS= 40 
SWOY= e260- 
SWO3= -i0 
SWOe= 4 
ab i 
EQUIV 809, Sw9 
EQUIV SWO8,SW8 
EQUIV SWO7,SW7 
EQUIV 6, SWE 
EQUIV S, SWS 
EQUIV SWO4, SWY 
EQUIV SWO3,SW3 
EQUIV SWO02,S 
EQUIV SWO1,SW1 
EQUIV SWO0,SWO 
6 
BITi4= 40000 
BITi3= 20000 
BITie= 10000 
BIT11= 4000 
BIT1O0= 2000 
BITO9= 1000 
BITO8= 400 
BITO7= 200 
BITO&= 100 
BITOS= 40 
BITO4Y= 20 
BITO3= 10 
BITOe= 4 
BITOl= e2 
BITOO= |} 
eauty Bi TR BIT 
-EQUIY BITOS,BITS 
-EQUIY BITO7,SIT7 


pena BIT Ran ne SON (BITOO TO BIT1S) 
IT1S= 100000 


MAINDEC-11-DERHAC-A YE 87 27(732) O9-SEP-76 07:55 PAGE 30 
DERHAC. P11 Basic DEFINE ONS 
eS fu Goce 
1360 BRUTY et : 'B q 
136! EQUIV B1103, 8113 
Ee BUY ERE BH 
1364 .EQUIV BITOO.BITO 
1366 -*BASIC “CPU” TRAP VECTOR ADDRESSES 
1367 oo0004 iRBVEES 4 8 TRE a ; AND OTHER ERRORS 
1368 099010 RESVEC= 19 RESERVED AND ILLEGAL INSTRUCTIONS 
1383 eteagt tBHyeks tu i track { 
1371 000014 BPTVEC= 14 :: BREAKPOINT TRAP (BPT 
1372 g00d20 IOTVE = 20 3 INP T/QUTPUT TRAP (TOT) x¥SCOPE #* 
ee 8c ENTVECs 0 {EMULATOR FRAP (EMT) **ERROR¥«* 
1375 TRAPVEC= 4 Pp” TRAP 
1359 BOONES TPVECe. 64 tHTTY KEYBOARD VECTOR 
1378 ate 40 PIR vEC=SuC : ? PROGRAM IRRERRUPS REQUEST VECTOR 
1380 .SBTTL TRAP CATCHER 
1382 pooc00 =0 
1383 ; ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ”.+2,HALT™ 
1384 -*#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPT 
1385 bale ;#LOCATION O. CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
1387 000174 900000 DISPREG: - WORD 0 »:SOFTWARE DISPLAY REGISTER 
1388 600176 900000 SWREG: .WORD O »: SOFTWARE SWITCH REGISTER 
1 83 SBTTL TARTING ADDRESS(ES) 
l poc20c 000137 opssee2 JeBEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
1391 o00046 oA 
1392 co0046 037554 SENDAD 
1394 ooo0s2 aietelatta bo8500 
1395 900210 -=210 
1396 990210 000137 soss32 JMP JHBEGINE j JUMP SELECT TEST 
1397 ;#STARTING ADDRESS 200 FOR NORMAL S 
1398 j #THIS WILL TEST ALL RPO4Y’S ON THE SOyeTEM A SINGLE DRIVE AT A TIME 
140¢  ASTARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
1406 STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 
1404 'SBTTL MEMORY MANAGEMENT DEFINITIONS 
4 
146 :#KT11 VECTOR ADDRESS 
1408 occesc MMVEC= 250 
iai¢ -#KTL1 STATUS REGISTER ADDRESSES 
1412 177872 SRO=  =«-:177572 
1413 177574 SRis 177574 


FOS 
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DERHAC.P11 MEMORY MANAGEMENT OEFINITIONS 


1414 177576 SRe= 177576 
{vis 172516 SR3= 2—s«s172516 

1417 -*KERNEL "I" PAGE DESCRIPTOR REGISTERS 
1416 172300 KIPDRO= 172300 

1420 172302 KIPDRi= 172302 

1421 172304 KIPDR2= 172304 

1422 172306 KIPDR3= 172306 

1423 172310 KIPDR4= 172310 

1424 172312 KIPDRS= 172312 

1425 172314 KIPDRb= 172314 

1426 172316 KIPDR7= 172316 

1428 KERNEL “I" PAGE ADDRESS REGISTERS 
1430 172340 KIPARO= 172340 

1431 172342 KIPARI= 172342 

1432 172344 KIPAR2= 172344 

1433 172346 KIPARS= 172346 

1434 172350 KIPARY= 172350 

1435 172352 KIPARS= 172352 

1436 172354 KIPARb= 172354 

1437 172256 KIPAR7= 172356 

tana m + srinalemetas-*- 1-1 ttre tainted cain iciniacninaais 
ets oo1110 | 2ilic | 


MAINDEC-11-DERHAC-A 


DERHAC. P11 
1441 
1442 
1443 
1444 
i445 
144E 
1447 
1448 001100 
1448 001100 
1450 001192 
1451 001103 
1452 001104 
1453 001106 
1454 001110 
145 O0llle 
1456 001114 
1457 001115 
1458 001116 
1459 001120 
1460 O0llee 
1461 01124 
1462 00118 
1463 OO113 
we Be 
Wee 001135 
1467 001136 
ee Bus 
170 OOlLaa 
1471 01146 
1472 001150 
1473 001152 
1474 001154 
1475 01155 
Be 
tue Bole 
1479 
1480 001162 
1481 O01165 
1482 OO1166 
1483 001170 
1484 00117 
1485 001174 
1486 O01176 
1487 01200 
1488 O01e0e 
1489 001204 
1490 001206 
1491 001210 
i492 O0le12 
1493 001214 
1494 001216 
1495 O0lece 
i496 © O01223 


COMMON 


001100 
COo00C 
000 


ool 
ae 


MACY11 27(732) 
TAGS 


000377 
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.SBTTL COMMON TAGS 


: * SELELREEARAAAAELAAAKAAA RA RARAALARELARAAASEHAAAERALRARAERARERSLLEZSLE 
:THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


USED IN THE PROGRAM. 


.=1100 
SCMTAG: 
SPASS: 


SBODAT: ; 
STNTAG: 


SWR: 
DISPLAY: | 


ea 


. WORD 
0 


WR 


D9 O00 OOO0O000-VWDOOVKO0000 


rm 


OOVOOOD0OOd0000 O2O-wvoO 


>» des Shae 


16) 


ISP 


: CONTAINS SCOPE LOOP ADDRESS 
T PE RETURN PS Fanos 


; ; CONT RS PER TEST 
Spode: PC OF LAST ERROR ae eet 20m 
OF *GOOD’ DATA 


‘Sue --NO? 10 BE USED 
tT PNTERRUPT MODE INDICATOR 
 FRODRESS oF Bigetay REGiSte ER 


bi ty KBD BUF FFER 
;{TTY PRINTER STATUS REG. ADDRESS 
‘TTY PRINTER BUFFER REG. ADDRESS 


oa UES FLAG (BIT <7) =0= YES) 
ICH He OBTAINED) 


so we ; +19) 
gees af eit 
>;USER DEF. 
:;USER DEFINED 


;;USER DEFINED 

isa DEF INED 

+ Uae FP INER 

$e .s 0 

AX. NUMBER OF ITERATIONS 
ESCAPE, ON ERROR ADDRESS 


LL 
»:QUESTION MARK 
;; CARRIAGE RETURN 


HO3 
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SERRA HAC LPL COMMON TAGS 29 
1497 S0lee4 oeovle SLF : ASCIZ <le> E FEED 
a nunennnaceaneecseunsanccenscebssecsencesenenessensnensnscesues 


1492 


MH INDEC-11-DERHAC-A 
DER 


HAC. P11 


O0le26 


001226 


001230 
001e3e2 
001234 


001236 


001240 
B01S44 


001246 


001250 


001252 
001254 


MACY11 27(732) 


ERROR POINTER THBLE 


046712 


065133 
066566 
066750 


0470E4 


065133 
bereh 


047266 


065132 


OSESEE 
956750 
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.SBTTL ERROR POINTER TABLE 
pry TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 


LG at} ON Site 
*NOTE1: 


: ¥NOTE2: 


;* EM 
;% H 
4 T 
.o DF 
SERRTB: 


s FALEALALAELETAALLAAELALALALALLLLLELLRERLELERELELE LARA LLL AALEREELES 


° 
s 


ITEM 1 
EM] 


-ITEM 4 


ne. Sheng Se an ere eae He THLE 1S PERTINENT, 


IF SITEMB 
EACH ITEM 


HE TABLE CONTA NEY POINTERS Ex SPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 


POINTS 


TO TH 


S ATA HEADER 
TQ T TA 


nou Ting 9 A $09.08 soa 


I 
THE ORIVE TYPE _ N 
:CONTAIN 0, 1,2,3 OR 4 


Bfdec, soar .o 


HINDICATING al RPO, ROS, “GR ROG 


;BUT VE T N 
CONTAIN 20020 >40B0, 20021, 240el, 
;20022, OR 24022 


-PC 
»RHDOT 
3 RERRPC, SEOOAT , 0 


E RH BASE ADDRESS WAS 772440 


ae: Brd NOt CONTAIN 
; s 142010 INDICATING NO 


‘HDT 
; SERRPC, SBDDAT, 0 


JO3 
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DE ANAE Pt ERROR POINTER 





8 TABLE 
1555 001256 o47422 EMY THE RH BASE RODRESS WAS 776300 
15S ‘INDICATING MORE THAN ONE 
1557 RH DEVICE. BUT THe DRIVE 
1558 ; TYPE PID NOT CONTAIN 
ieee i Ohabe Bagbo. OR T4eO1O INDICATING’ NO 
1561 RH $529 Fs ORE sen ; 
15b¢ 001260 065133 DH1 iF PC 
1564 001 6 Tl : SERRPC, SBDDAT, 0 
tees BCISed Beezes Br SER 
1566 
ee 001266 947721 — EMS “THE UNIBUS TIMED OUT 
a 
1563 ‘FOR EACH OF THE FOLLOWING 
i570 ; ADDRESSES INDICATING 
1371 :NO RH ON THE SYSTEM 
1573 $2 ABORT PROGRAM 
1574 oo1e70 o&S14e2 DHS 
1878 5 Ute AREER WHICH 
157 127 c7y T RRP 1, ™CS1,MIXCS1 
1578 BB i855 REE G2 Bee SE ARE 0,0,0 4° 
1579 
eet 001276 osco74 —" EMG AFT RAN RH CLEAR (BIT #5 
\ 
1582 HCS2) Buké5 DOES NOT 
1583 : AV F ONLY IR AND UNIT 
tege 001300 oeS216 DH6 i DRreeR 
1586 TEST NO 
1387 ees On G00D 
l 2 Ob Th ER Cp FSTNM, SGDDAT , SBDDAT 
teea BoIs0s | SEEPeD Pre sBERRECS 
1591 
1S92 -ITEM 7 
1593 001306 oS0212 EM? sAFTER CLEARING THE RH AND 
1 4 : WRITING ONE WORD NTO 
1 :RHOB AN T 
159 *BACK CAUSED RHDB TO 
1597 Mitpsie, a ;HAVE WRONG VALUE GIVEN IN BAD RHOB 
1236 ‘TEST NO 
1690 ; RHOB GOOD 
teBe 1312 O6661 DTS SERREC, STN, SGDDAT , SBDDAT 
ERS Bb isis BEE Ses OFE SERRE 0,0,0 
1604 
1605 ITEM 10 
TENE NO13is osouoy EMID “AFTER CLEARING THE RH AND 
1657 ‘WRITING ONE WORD INTO 
1608 -RHDB AND READING IT 
1695 *BACK, CAUSED RHCSe TO 


i610 ‘HAVE WRONG DATA 


/ 
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RROR POIN 


MF 
DERHAL.P11 





ER TABLE 
1611 ‘GIVEN IN BAD RHCS2 
lle 001320 o6S216 DHE : PC 
1613 i TEST NUMBER 
ae Bees 8 
4uwa 
16168 001322 66610 DTS paid TSTNM, SGDDAT , SBDDAT 
1617 091324 066757 OFS :0,0,0,0 
1619 -ITEM 11 
bec 001326 os0577 EM11 Ting one woRp RH AND 
te5s {RDB ANO READING {1 
1623 OK. CAUSED RHCS1 TO 
1624 VE" DAT 
1626 VEN IN BAD RHCS1 
l 901330 96532: DHil 
1627 a NUMBER 
ibee *RHCS1 GOOD 
1630 001322 Ob6610 OT RHEE BAR TSTNM, SGDDAT , SBDDAT 
1631 O01334 066757 OF6 '0,0,0,0 
4 
1633 -ITEM 12 
1634 001336 050772 EM12 ;AFTER CLEARING THE RH AND 
16 URI TING ING ho He WORD INTO 
1636 RR B AN READ 
1637 0 RHCS3 TO 
1638 ‘HAVE WRON Nee Bara 
1639 *GIVEN IN BAD RHCS3 
1640 OO01240 0€5362 DH12 ;PC 
1641 TEST NUMBER 
1642  RHCS3 6000 
1643 *RHCS3 BAD 
1644 001342 066610 OTS : SERRPC, TSTNM, SGDDAT, $BDDAT 
164s DOI344 066757 OFE :0,0,0,0 
1647 ;ITEM 13 
1648 COlZ46 OSi165 EM13 AFTER CLEARING THE RH AND 
1649 WRITING ONE WORD INTO 
1650 AND 
1651 
1652 
1653 
1654 001350 oEsHes DH13 
1655 
1656 
eee 1352 T SERREG, TSTO, SGDDAT , SBDDAT 
tees porses =peesed Pre i SERREC 
1660 
1661 -ITEM 14 
1662 001356 051357 EM14Y -AFTER CLEARING THE Ri AND 
1EE2 ; WRI ING ONE WORD INTO 
1S64 B AND READING IT 
1EE5 BACK, CAUSED RHBAE TO 


sHAVE WRONG DATA 


LOS 
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OERHAC.P11 ERROR POINTER TABLE 
Pee OO1360 DeSHES DH14 Spreenecinatet eet: 
1eee - TEST NUMBER 
1670 sRHBAE GOOD 
ig? *RHBAE BAD 
1672 001362 066610 OTE : SERRPC, TSTNM, SGDDAT, SBDDAT 
1673 001364 066757 OFE :0,0,0,0 
ee 001366 os1S52 alee Semis AFTER CLEARING THE RH AND 
1677 i TRITING at WORD INTO 
1678 *RHDB AND READING IT 
1679 ‘BACK, CAUSED RHWC TO 
1680 ;HAVE WRONG DATA 
1681 ‘GIVEN IN BAD RHWC 
1682 001370 065527 DHiS : PC 
1683 : TEST NUMBER 
1684 ‘RHWC GOOD 
TEBE 001372 06661 Tb sextet 1ST, SGDDAT , SBDDAT 
1687 001374 BEE Se> BEE BOD 0,0,0 
1688 
1689 -ITEM 16 
1690 001376 o51744 EMI6 :AETER CLEARING THE RH AND 
1691 WRITING ONE WORD INTO 
1692 RH 
1693 ; CAUSED RHCS2 TO 
1694 VE WRONG DATA 
1695 ‘GIVEN IN BAD RHCS2 
1696 OO140D o6S216 DHE : PC 
1697 :TEST NUMBER 
1698 *RHCS2 GOOD 
1699 ‘RHCSe BAD 
1700 001402 Ob&6610 OT& : SERRPC, TSTNM, SGDDAT, SBDDAT 
1701 001404 066757 DFE :0,0,0,0 
1703 -ITEM 17 
1704 OO14C6 052137 EM17 ;APTER CLEARING THE RH AND 
1705 {WRIT ING TWO WORD INTO 
1706 *RHDB AND READI 
1707 ‘BACK, CAUSED RHDB TO 
1708 :HAVE WRONG DATA 
i716 001410 o&S261 DH? ‘Be reciente: 
171 : TEST ER 
171 *RHDOB GOO 
1713 -RHDB BAD 
1714 OO01412 O&6610 OTS : SERRPC, TSTNM, SGDDAT , SBDDAT 
1716 CO1414 066757 OFE :0,0,0,0 
1717 ITEM 20 
1718 OO141E yS2321 EM20 SAFTER CLEARING THE RH AND 
1719 ‘WRITING TWO WORD INTO 
1720 ; RHOB AND READING ONE 
1721 ‘BACK, CAUSED RHCSe TO 


172e ‘HAVE WRONG DATA 


DEAHBE PLL ERROR POINTER T 


001420 


001422 
001424 


001426 


001430 


001432 
001434 


001436 


001440 


p01442 
p01444 


001446 


001450 


0014Se2 
001454 


001456 


065216 


066610 
066757 


052525 


065261 


066610 
066757 


052725 


065215 


066610 
066757 


053126 


065216 


066610 
066757 


0S3323 
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OHE 


OT& 
DFE 


ITEM 21 


EMel 


DH? 


DT6 
DFE 


ITEM ee 


EMée 


DHE 


OTS 
DFE 


ITEM 23 


EMe3 


DHE 


OT& 
OFE 


ITEM 24 
EMe4 


; GIVEN IN BAD RHCS2 
: TEST NUMBER 
: RHC 
: SERRPC, TSTNM, SGDDAT, SBDDAT 
:0,0,0,0 
rte CLEARING THE RH AND 
- WORD INTO 
i 
po TUIce, CAUSED RHDB TO ) 
VEN TN A BAD RHOB | 


TEST NUMBER 
; RHDB GOOD 
BAD 


H 
t SERRPC TSTNM, SGDDAT, $BDDAT 
:0,0,0,0 
-AFTER CLEARING THE RH AND 
sWRITING TWO WORD INTO 
*RHDB AND READING IT 
‘BACK TWICE, CAUSED RHCS2 TO 
>HA ONG DATA 
GIVEN IN BAD RESS2 





*RHCS2 BAD 
*SERRPC, TSTNM, SGDDAT , SBDDAT 
;0,0,0,0 


sAET R CLEARING THE RH_AND 
fo, ING EIGHT WORD INTO 


DB 
CAUSED RHCSe TO 


WRONG DATA 

sGIV N IN RHCS2 

- TEST NUMBER 

: RHCS2 GOOD 
: RH HCSe BAD 

: SERRPC TSTNM, SGODAT , SBDDAT 
;0,0,0,0 
» THE RH wa ere 
: AND A PATTERN OF 8 WORDS 
; WERE WRITTEN INTO RHOB 
*sREADING RHDB 


FOR THE 
“"N" TH. TIME GAVE WRONG 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


1815 


coO00 co cococdo am 
WoOonou © 


ea > bea fo hes Bt Pe fe 
beg | 


001460 


001462 
001464 


001466 


001470 


001474 


001476 


001522 
01284 
1526 
1530 


001532 
001534 


MACY11 27(732) 


ERROR POINTER TABLE 


065567 
0666ee 
066763 


053553 


065216 


Deer? 


053553 
065321 


066757 


053553 
065363 


066610 
066757 


054553 
p65425 
066610 
066757 


053553 
O&S4ES 


066610 
066757 


OS-SEP-76 07:55 PAGE 39 
DHe4 


DT24 
OF 24 


- ITEM 
a eo MDS 


DHE 


bre 


> ITEM 26 


-ITEM 30 
EMeS 
DH13 


;ITEM 31 


HOB 


VALUE IN _R 
N IS GIVEN IN “WORD NO” 


3 
TEST NO 

‘RHDB GOOD 

i BLOR BA PSTN, SILONM, SGDDAT, SBDDAT 
'0.0,0,0,0 


; THE RH WAS CLEARED AND 

A PATTERN OF 8 WORDS WERE 

WR TTEN INTO RHDB 

SAFTER READING ALL 8 WORDS 

iF OLLWING REGISTER CONTAINED WRONG 


{TEST NO 
jRHCS2 GOOD 


RHCSe BAD 
 SERRPC, TSTNM, SGDDAT , SBDDAT 


SERREC, TSTNM, SGDDAT , SBDDAT 


sPC 
; TEST NO 

:RHBA GOOD 

:RHBA BAD 

: SERRPC, TSTNM, SGDDAT , SBDDAT 


:0,0,0,0 
:PC 
TEST NO 


Ros a SGDDAT, SBODAT 
ry b 


/ 


—_— — ee ee ee ee ee ee ee 


+ = 


MAINDEC-11-DERHAC-A 
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001546 
001550 
0015Se 
001554 


001556 


001560 
001562 
001564 
001SE6 
001S70 
901572 
001574 


001576 


MACY11_ 27(732) 


ERROR POINTER TABLE 


053553 
06S5e7 


066610 
066757 
05405e 
065637 
066610 
066757 


OS4116 


065637 


066610 
066757 


054360 


065321 


066610 
066757 


OS4SS56 


OS-SEP-76 O7:SS PAGE 40 


- ITEM 32 


;ITEM 33 
EM33 


DH33 


OT6 
OFE 


-ITEM 34 
EM34 


DH33 


DT6 
OF6 


-ITEM 35 
EM35 


DH11 


OTS 
DFE 


; ITEM 36 
EM36 


O4 


‘TEST NO 

;RHWC. GOOD 

iSERRPC TSTNN, SGDDAT, SBDDAT 
Ooo. 


sSETTING RH CLEAR BIT #5 

IN RHCS2 CAUSED 

j ERROR REGISTER 1 TO HAVE 
NG VALUE 


TEST NO 

sRHER1 GOOD 

sRHER1 

: SERRPC, TSTNM, SGDDAT , SBDDAT 


;AN RH LCLEAR WAS GIVEN 
;RHER1 WAS CHECKED TO i 


R1_ WAS READ 
: CONTAIN WHAT IS TN RHER1 GOOD 


TEST NO 

*RHERI GOOD 

;sRHER1 BAD 

3 We Wabitaidenmeetll beet 


sRH CLEAR WAS GIVEN 

;RHERI WAS CHECKED 

;PAT (BIT #4 RHCS2) WAS SET 
;AND RHER1 WAS READ 

sRHCS1 SHOULD HAVE RDY 

;SC AND MCPE SET 

; TEST NO 

*RHCS1 GOOD 

sRHCS1 


AD 
: SERRPC TSTNM, SGDDAT , SBDDAT 
;0,0,0,0 


;RH CLEAR WAS GIVEN 

;RHERI WAS CHECKED 

;PAT (RHCS2-BIT #4) WAS SET 
;RHER1 WAS READ AND CHECKED 

"1" WAS WRITTEN INTO “TRE"-RHCSi 


CO4 


MAINDEC-11-DERHAC-A MACY11 27(732) 09-SEP-76 07:55 PAGE 41 
SERRE Pil ERROR POINTER TABLE 
1891 :ON CHECKING RHCS1 
1892 -IT DID NOT CONTAIN SC,MCPE 
tee 001600 065321 DH11 hee, 
i89s TEST NUMBER 
1896 *RHCS1 GOOD 
1897 -RHCS1 BAD 
1898 001602 O66610 OT : SERRPC, TSTNM, SGDDAT, SBDDAT 
1899 001604 066757 OF :0,0,0,0 
tab p01606 0S5033 ATEN 30 a? RH WAS CLEARED 
1903 ; RHERL WAS CHECKED 
1908 jPAT (RHCS2-B1 #4) WAS SET 
1906 ays WAS BRITTEN IN “TRE” RHCS1 
1907 -AN RH CLEAR WAS TO 
1908 -GIVE WHAT IS _IN “GOOD” 
1909 ‘BUT GAVE WHAT IS IN “BAC” 
1919 001610 065321 DH11 ; 
1911 EST NO 
1912 *RHCS1 GOOD 
1913 *RHCS1 BAD 
1914 001612 O66610 DT tSERRPC TSTNM, SGDDAT , SBDDAT 
1915 001614 066757 OF -0,0,0,0 
1917 - ITEM 40 
1918 001616 055033 EM37 
1919 001620 Oo652i6 DHE 
1920 O01622 O66610 OTE 
1921 001624 066757 DFE 
1922 
1923 -ITEM 41 
1924 001626 05503 EM37 
1925 001630 065363 DH12 
1926 001632 O66610 OTE 
1927 001634 066757 DFE 
1928 
1929 > ITEM Ye 
1930 001636 055032 EM37 
1931 001640 O65425 DH13 
1932 001642 O66610 OT 
1933 001644 066757 OFS 
1934 
1935 : ITEM 43 
1936 OO1646 055033 EM37 
1937 GOl6SO O6S4ES OH14 
1938 001652 066610 OTS 
1939 001654 ? OFE 
1940 
1941 ; ITEM 44 
1942 O01656 055033 EM37 
1943 OO1660 065527 OH15 
1944 QO01662 O66610 OTé 
1945 OC1EE4 066757 OFE 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


001666 


001670 


00167¢e 
001674 


001676 


001700 


001702 
001704 


001714 


001716 


001726 
001730 
001732 
001734 


001742 


ERROR POIN E! 


055335 


065701 


066610 
066757 


055573 


06S3e21 


066610 
066757 


055573 


066757 


055573 


066757 


055573 
OES4ES 
066610 


ACY11_27(732) 
TABLE 


O9-SEP-76 07:SS PAGE 4e 


-ITEM 45 
EMY 


DH4S 


OT 
OFE 


-ITEM 46 
M46 


ITEM 47 


ITEM SO 


-ITEM Sl 


;ITEM Se 


O4 





; RHDA GOOD 


3¢ STNM, SGDDAT , SBDDAT 
Han 


tata Rae WRITTEN TN 
DISK SK ADDRESS RecteTeR” CIN 


; TAPE 

‘PAT IN RHCS1 WAS 

bo 5 pagal 
REGISTER DID _NOT CONTAIN 
WHAT I GOOD” 


S 
nel GOOD 
: SERRPC, TSTNM, SGDDAT, SBDDAT 


DERHA 


at Pi 11-DERHAC-A 


001744 
001746 
001750 
001752 
001754 


001756 


002016 


002020 
002022 


002024 


002026 
002030 


MACY11 27(732) 


ERROR POINTER TABLE 


066757 


055573 
0&SS27 
066619 
066757 


056074 


056305 


O6S465 
066610 
066757 


066757 


O56S43 


066757 


OSESH3 
CES+ES 


O9-SEP-76 07:55 PAGE 43 


DFE 
-ITEM S3 


>I TEM S4 
EMSY 


; ITEM 55 
EMSY 
DH14 
OTE 
OF6 


> ITEM SE 
EMSE 


;AN RH CLEAR (RHCS2 BIT #5) 


: GIVEN 

-Al6 (RH IT #8) WAS SET 
* ON READING The FOLLOWING 
*REGIST 


: CONTAIN WHAT. is tN "egooo" 


-AN RH CLEAR (RHCS2 BIT #5) 
ihe WAS WRITTEN IN RHCS1 


ne ZEROS WERE tar en Arp RHBAE 
FOLLOWING RESHRT 
CONTAIN WHAT IS : nab00" 


: AN ne ‘eR (RHCSe BIT #5) 
ais th PRHESL BIT #9) WAS SET 


3 ON EOD ING THEO PRR OHING 
CONTAIN WHAT IS IN “GOOD” 


MRINDEC-11-DERHAC-A 
OERHAC .P 11 


C. 


rururururururururururufur©ru 
Hae eran tS a 
Mist att pt ator 


+ +-b-b-e—-b- CD 
£Wwre-Ow 


002032 
002034 


002036 


002040 
002042 
002044 


002046 


002054 


002056 


002060 
002062 
002064 


O02CbE 


002074 


002076 


002116 


FO4 
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ERROR POINTER TABLE 


066610 


056757 


056754 


BEETS? 


056754 


066757 


0$7211 


065321 
066610 
066757 


057211 
065363 
066610 
066757 


057211 


065363 
066610 
066757 


065757 


057650 


OT& 
DFE 
-ITEM 62 
EME2 ASG CLEAR (RHCSe BIT #5) 
Al? WAS WRITTEN IN RHCS1 
-ALL ZEROS WERE WRITTEN IN RHBAE 
-THE FOLLOWING REGISTER DI 
NOT CONTAIN WHAT IS IN “GOOD” 
DH14 
OT6 
DF 
: ITEM 63 
“ ~ EMB2 
DH11 
OT6 
DFE 
> ITEM 64 
EME4 -AN RH CLEAR (RHCS2 BIT #5) 
; WAS GIVEN 
-IE (RHCS1 BIT #6) WAS SET 
: ON READING THE FOLLOWING 
sREGISTER IT DID N 
CONTAIN WHAT IS IN “GOOD” 
DH11 
OTé 
DFE 
-ITEM 65 
EM64 
Dkle 
DT6 
DFE 
- ITEM 66 
EM64 at ae (RHCS2 BIT #S) 
ALG WAS WRITTEN IN 
:ALL g5ROD WERE W WRITTEN? tN RHBAE 
OLLOWING REGISTER DIO 
*NOT CONTAIN WHAT IS IN “GOOD” 
DHle 
OTé 
OF 6 
ITEM 67 
EM64 
DH11 
OT6 
DFE 
ITEM 7C 


EM? ;RH CLEAR WAS GIVEN 


= 
dD 
m4 
Zz 


m 
+ 


~, 


C 09-SEP-76 97:55 PAGE 4S 


p— b- 


1-DERHAC-A MACYL! 27(732) 
l ERROR POINTER TABLE 


wt 


TWO SUCCESSIVE “GO” (RHCS1 BIT #0) 
‘WAS GIVEN WITHOUT GIVING 
RST "GO" TO 


o— b= 0 bb bb be be Bb bb bb 2 be 


b= bb 
4. ££ EE EE 
OWONMUWC WN —-O WONMUS Wh OWOsN OUI LS wre 


rurururururorururururururururururururururururururulfrulrurururururururururururururururulfrururururururulrulrururursruru 
ui 


0—* b= b— b= bb bb 0 8 0 0 8 
NPRM KOO Rm NUMuUIUIUTU 


raWetestet alts Wat At thet a: 08 MOPUT LE CoFUr COD SITU o 


;TIME FOR FI 
ET 


‘THE FOLLOWING REGISTER 


;DID NOT CONTAIN WHAT IS 
IN “GOOD” 


002120 065321 DH11 
02122 66610 DTé 
002124 OB6757 DFE 
-ITEM 71 
002126 oOS7660 EM70 
002130 Oeselé DHo 
002132 O66610 OTe 
002134 066757 DFE 
; ITEM 7e 
002136 oOS7660 EM70 
002140 065363 DH12 
002142 66610 DTé 
002144 66757 DFE 
ITEM 73 
002146 oOS7660 EM70 
002150 065425 6H13 
002152 O6e610 O76 
002154 6675 OFS 
sITEM 74 
002156 oS7660 EM7O 
02160 OBS4eEs OH14 
002162 066610 OT6 
002164 066757 OFS 
LITEM 75 
002166 057660 EM7O 
002170 esse? BHIS 
002172 O66610 DTé 
002174 066757 OFe 
002176 060134 tite RH CLEAR WAS GIVEN A 2 WORD 
U : rand 
‘WRITE WAS DONE FROM A 
‘LOCATION TAGED WRFROM 
‘AND WITH BAI BIT SET 
SAT THE END OF THE WRITE 
ITHE FOLLOWING REGISTER DIC 
‘NOT CONTAIN WHAT 15 
-IN GOOD 
002200 065321 DH11 
002202 Obbb10 OT6 
no2204 Dee7s7 OFE 
-ITEM 77 
002206 060134 EM76 


HO4 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 46 


DERHAC. P11 ERROR POINTER TABLE 
2171 002210 O&S2I16 DH& 
2172 OO022l2 O66610 DT 
e173 002214 066757 OF 
gtoe : ITEM 100 
2176 O02216 060134 EM76 
2177 002220 065363 DH12 
2178 OO0ee2e2 O66610 OTS 
2179 O0e224 066757 OF 
2180 
2181 ITEM 101 
2182 002226 060134 EM? 
2183 002230 o6S4e2s 0H13 
2184 002232 066610 OT 
2185 234 066757 OFE 
2186 
2187 ITEM 102 
2188 002236 06013 EM76 
2189 O02240 O&S4ES DH14 
2190 OO0e2e42 O6661 OT 
2131 002244 066757 OF 
2193 :ITEM 103 
2194 002 060134 EM76 
2195 002250 65527 DHIS 
2196 O0ee52 O65610 OT 
2197 002254 066757 OFE 
2198 
2199 - ITEM 104 | 
2200 O0225&6 060427 EM104 :RH CLEAR Was Sven 1 ie -e 
-* J 
ssos SEC. SleRE MOV MOVED INTO RHO ie 
2203 ; ON ADING 
2204 -THE FOLLOWING REGISTER 
220s :010 NOT CONTAIN WHAT 
2207 002269 065741 DH104 pe TEST NO, IPCK,RHCS3 GOOD,RHCS2 BAD 
2208 O02e62 O&6636 OT104 SERRPC, TSTANM, IP. SGODAT, SBDDAT 
g208 002264 066770 OF 104 Oo 0.0.8 
2211 ITEM 105 
5515 Bose BEEOT ante sPC, TST NO, IPCK,RHCS2 GOOD,RHCS2 BAD 
is L 
214 00227 Spee Es 07105 : SERRPC, TSTNM, IP; SGDDAT, $8DDAT 
e216 002274 066775 DF 105 ‘0.0.0.0, 0 
2217 -ITEM 106 
e218 002276 ObDEES EM106 sRH CLEAR WAS GIVEN AN 
19 -IPCK BIT SHOWN IN "IPCK” WAS SET 
2220 -2EROS WERE MOVED INTO 
2221] :RHDB FROM AN ODD WORD 
Soe? me S READ 
ece3 eSEAR, WAS GIVEN 
225 “FOUL Ot bNae RECT TER 
226 CONTAIN WHA 


MAINDEC-11-DER 
DERHAC.P11 





eh 


002356 


002360 
002362 
002364 


002366 
002370 


002372 
002374 


HAC-A 


MACY11_ 27(732) 


ERROR POINTER TABLE 


066636 
066770 
O60665 


pepe d/ 
66636 
066770 


061156 


065216 
066610 
066757 


061156 
065363 


066610 
066757 


’ 


-ITEM lle 


EM106 


-ITEM 113 
EM106 


0 
put is 
OT104 
DF 104 


;ITEM 114 


EM114 


sITEM 115 


EM114 


DHle 
DT6 
DFE 


ITEM 116 


? 


” 


09-SEP-76 97;S5 PAGE 47 


IO4 


Be Tern TPCK.RHCS1 GOOD.RHCS1 BAL 
SEARBC, Tet, IP, § MAM Ca Z 


;PC, TSTNM, IPCK,RHCS2 GOOD,RHCSe BAD 


-PC, TSTNM, IPCK,RHBA GOOD,RHBA BAD 
;SERREC, TSTNM, IP, S€D0AT, SB0DAT 


-PC, TSTNM, IPCK,RHBAE GOOD, RHBAE BAD 
; SERRPC, TSTNN, IP, SGDOAT, SBDDAT 


SERRBC, TSTHH,tP, SCODAT, SBODAT™ 


sRH CLEAR WAS GIVEN AN 

-A WRITE CHECK WAS DONE 
-TH Bi att REGISTER 
*DID NOT CONTAIN WHAT IS 
;IN “GOOD” 


;RH CLEAR WAS GIVEN AN 
sA WRITE CHECK WAS DONE 


: R 
:D10 NOT CONTAIN WHAT IS 
;IN “GOOD” 


MA C-11 “DER HAE OR Oe pie) 09-SEP-76 07:55 PAGE 48 
OE Pil RROR POINTE 


C02376 061325 EM116 ;RH CLEAR WAS GIVEN an 


‘NOT CONTAIN WHAT IS IN “GOOD” 





Be Re 
002405 
Ba 








EM116 


ITEM 122 
EM116 
DH14 
OT6 
OF6 

ITEM 123 
EM116 
DH1S 
OT6 
OF6 


sITEM 124 
EM1e4 


pile 
Bre 
-ITEM 125 
EM1L24 
DH11 


OT6 
OFE 


“J 


;ON A SILO TEST TO 
;TEST_DBL Kee pt 

:TH NO LOWING REG 
+ N 


BO 


IT #1 

ate 
CONTAIN WHAT 
IN “GOOD” 


fp nt Be 
fe fen 
! 


002534 
002536 


002540 


O002eS4e2 
O002S44 


002546 


002550 


00e5Se2 
002554 


O0eSSE 


DERHAC-A 


ERROR POINTER TABLE 


066315 


066610 
066757 


062056 


066315 


066610 
066757 


062234 


;ITEM 1e5 


EM124 


EM1e4 


KO4 
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BEFORE DATA TRANSFER 
; COMMAND - aive TO BE GIVEN 


Aaa tN GOOD 


;PC 

TEST NO. 
*RHDS1 GOOD 
sRHDS1 BAD 


;sBEFORE DATA TRANSFER 
;COMMAND WAS TO BE GIVEN 


:T OR 
STATUS REGISTER DID NOT 
;CONTAIN WHAT IS IN GOOD 


; TEST NO. 
*RHDS1 GOOD 
;RHOS1 BAD 


; BEFORE DATA TRANSFER COMMAND 

;sWAS TO BE GIVEN THE 

;MAG TAPE DRIVE STATU 

‘REGISTER DID NOT CONTAIN WHAT 
31S IN GOOD 


~~ — oe | or — 


= _-_ ey ee 


MAINDEC-11-DERHAC-A MACY11_27(732) O9-SEP-76 07:55 PAGE SO 
DERMAE Pl Pil ERROR POIN i: 


TABLE 
2395 002560 066315 DH132 
2396 002562 066610 DT6 
2397 002564 066757 OF 6 
S336 02st 062424 s ETEMLSS 138 :WAS WATIING FOR A BIT TO SET 
Si ‘BIT IN QUESTION IS IN “BIT WAITED FOR™ 
O1 ; REGISTER IN QUESTION IN “REG ADDR” 
102 002570 066357 DH135 3 
‘TEST NO 
e404 PC OF WAT 
ibe | G ADDR 
407 002572 066702 07135 ph. TSTNM, WATIPC, WAITBT, WAITRE 
2408 002574 087007 reniaeer tS :0,0,0,0,0 
410 002576 o062624 EM136 WAS WATIING FOR A BIT TO RESET 
2411 :BIT IN QUESTION IS IN “BIT WAITED FOR™ 
5412 ; REGISTER IN QUESTION IN “REG ADDR” 
2413 002600 066357 DH135 
5414 ‘TEST NO 
5415 Pe OF WAT 
3416 
417 fa BROF 
418 002602 066702 07135 :SERRPC. TSTNM, WATIPC,WAITBT,WAITRE 
2419 902604 067007 OF 135 :0,0,0,0, 
5450 -ITEM 137 
2451 OO2606 063026 | EM137 ON WRITING AND READING 
sup ; THE REGISTER # IN “REG. ADDR” 
543 IT DID NOT CONTAIN 
Syo4 ‘EXPECTED VALUE. 
2425 02610 066437 DH137 : BC 
Sub ‘TEST NO 
5457 ‘REG ADDR 
5458 : ;GOOD DATA 
4>g ‘BAD DATA 
430 002612 Ob6716 DT137 : SERRPC, TSTNM, SBDADR, SGDDAT, SBODAT 
2431 002614 067014 DF 137 :0,0,0,0,0 
5432 ) 
5433 
3434 sITEM 140 
2435 002616 063154 EM14O 
2436 O02620 O66061 DH106 
2437 O02be2 OGbbb6 DT106 
2438 002624 067002 OF 106 
5439 -ITEM 141 
440 O02626 063405 EM141 -AFTER CLEARING THE RH AND 
44] ‘WRITING TWO WORD INTO 
D44D *RHDB AND READING IT 
443 : BACK TWICE, CAUSED RHCS! TO 
yu ‘HAVE WRONG DAT 
OuYS ; GIVEN IN BAD RHCS1 
e446 002630 065321 OH11 
S447 ) ‘TEST NUMBER 
e448 : :RHCS1 GOOD 


49 sRHCS1 BAD 
e450 002632 066610 OT& : SERRPC, TSTNM,SGDDAT, SBODAT 


MO4 


MA 
OE PL 





CSHI-DERHAG-A. MACY 27(732) 09-SEP-76 07:55 PAGE SI 
RROR POINTER TABLE 
002634 066757 OFé 
-ITEM 142 
002636 063607 EM142 
002640 065363 DH12 
002642 O66610 - DTé 
002644 066757 DFE 
: SITEM 143 
002646 Ob4DI0 EM143 
002650 o6s42s DH13 
002652 066610 OTs 
002654 066757 OFe 
>ITEM 144 
002656 Ob4210 EML44 
002660 oObS46S DH14 
002662 Ob6610 OTb 
002664 066757 OFé 
;ITEM 14 
002666 064411 PMs 
002670 oEss27 DHIS 


°0,0,0,0 


TRI TT ne fas ube AMS ta AND 


;RHOB AND READING IT 
: BACK tha CAUSED RHCS3 TO 


bye Ma: IN Ps 
: PC 


: TEST NUMBER 
sRHCS3 GOOD 


*RHCS3_ BAD 
: SERRPC, TSTNM, SGDDAT , SBDDAT 


;0,0,0,0 


‘AFTER CLEARING THE RH AND 
‘WRITING TWO WORD INTO 
: RHDB AND READING IT 

‘BACK TWICE, CAUSED RHBA TO 
‘HAVE WRONG DATA 

IGIVEN IN BAD RHA 


;PC 
‘TEST NUMBER 
RH A GOOD 


RHBA_ BAD 
SERRE, TSTNM, SGODAT , SBDDAT 


sAF TER eg th THE RH AND 
sun TING uA; NTO ° 


; BACK TWICE, “CAUSED RHBAE TO 
‘gen i IN ae RHBAE . 


: TEST NUMBER 
:RH 00D 


;RHBAE BAD 
: SERRPC, TSTNM, SGODAT, SB0DAT 





:0,0,0,0 


sAFTER CLEARING THE RH AND 
sWRITING TWO WORD INTO 


*RHDB AND READING IT 
s BACK TWICE, pgnysed RHWC TO 
{GIVEN IN N IN NY Bab ARH 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


r 
posers 
002676 
002700 


2702 
2704 


002706 
002710 


002712 
002714 


MACY11_27(732) 


ERROR POINTER TABLE 


Beers? 


064611 
066511 
OeP021 
065003 
066540 


066742 
067024 


O9-SEP-76 97:S5 PAGE Se 


T 
F 
» ITEM1L46 
EM146 
DH146 
DT146 
DF 146 
» ITEM147 
EM147 
DH147 


OT147 
OF 147 


TEST NUMBER 
j RHC GOOD 


SeRrer TSTNM, S$GDDAT , SBDDAT 


The Ou F BOSE ORRESBONDING 
ECTOR ADDRESS DID TIME OUT 
Base 
SERRPC, TESTDV, TESTVC, 0 


;A DEVIC ares DID _NOT 
; TIME OUT BUT NO UNITS HAD 
sAPPROPRIATE DRIVE TYPE 


Bice ADDRESS 
: SERRPC, TESTDV 


- ——— a —_ 


BUS 


MAINDEC-11-DERHAC-A MACY11 27(732) OS9-SEP-7& 07:55 PAGE S3 
DERHAC.P11 ERROR POINTER TABLE 


2531 
a + PEEPES RAL ERE ERED RARE FREERLEEE ELE FE RSE RRL EEE EFEE ESE LERAFEE RE HE 
33 -RH70 REGISTERS 

2535 

2536 

3537 oO02716 oo0es4 RPVEC: 254 “RP VECTOR ADDRESS 

2538 tier ititiiitiititt ttt itiittitititititititiititttitiiie 

2539 :WORD COUNT REGISTER (RHWC) 

e540 -EACH BIT IS CALLED BY BIT NUMBER 

2542 

Seua US ADDRESS REGISTER (RHBA) 

gous Bath BIT fe CALLED BY BIT NUMBER 

2547 

254g 

go -CONTROL AND STATUS REGISTER 2 (RHCS2) 

2551 000001 USl= 1 : UNIT SELECT (BIT #0) 

S2 0000 USe= 2 ‘UNIT SELECT (BIT #1) 

25s3 000004 uS4= 4 ‘UNIT SELECT (BIT #2) 

Sy 000010 BAlI= 19 ‘BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
2sss 0020 PaT= 20 : INVERT PARITY 

2556 0040 CLR=e 40 ‘CLEAR (BIT #5) 

2557 000100 IR= 100 s INPUT READY (BIT #6) 

00 OR= 200 ‘OUTPUT READY (BIT #7) 

2559 o00400 MPE= 400 BUS PARITY ERROR (BIT #9) 

2560 000400 MDPE= 400 -MASS BUS PARITY ERROR (BIT #8) 

256 901900 MXF= 1000 *MISSED TRANSFER ERROR (BIT #9) 

26 02000 PcE= 2000 ‘PROGRAM ERROR (BIT #10) 

2563 004000 NEM= 4000 : NON EXISTANT MORY ( IT (41) 

2564 010000 NED= 10000 *NON EXISTANT DRIVE (BIT #12) 

2565 020000 PE= 20000 -UNIBUS PARITY ERROR (BIT #12) 

e566 040000 WCE= 40000 -WRITE CHECK ERROR (BIT #14) 

e567 100000 DLT= 100000 ‘DATA LATE (BIT #15) 

2569 :CONTROL AND STATUS REGISTER 3 (RHCS3) 

257] 000001 IPCKO= 1 - INVERT PARITY CHECK BIT 0 
7 900002 PCKi= 2 s INVERT PARITY CHECK BIT 1 
7 900004 PCKe= 4Y s INVERT PARITY CHECK BIT 2 

25 000010 IPCK3= 10 s INVERT PARITY CHECK BIT 3 

2575 alaley = 100 : INTERRUPT ENABLE (BIT #6) 

2c7 992000 DBL= #2000 ‘DOUBLE WORD BOUNORY (BIT #iC) 

Fis 4 WCEEW= 4OO0 ‘WRITE CHECK EVEN WORD (BIT #11) 

2578 010000 WCEOW= 10000 *WRITE CHECK ODD WORD (BIT #12) 

2579 020000 DPEEW= 20000 -DATA PARITY ERROR EVEN WORD (BIT #13) 

2580 040000 DPEOW= 4OO00 :DATA PARITY ERROR ODD WORD (BIT #14) 

581 100000 APE= 100000 ‘ADDRESS PARITY ERROR (BIT #15) 

2583 

2584 

258s 


25 :DATA BUFFER REGISTER (RHOB) 


MAINDEC-1 
DERHAC . Pil 


1-DERHAC-A 


salts 


100000 


000001 
SADAAS 


100000 


000001 


Ci0000 


MACY11_27(732) 
ERROR POINTER TABLE 
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;EACH BIT IS CALLED BY BIT NUMBER 


» RELLAAALA LARA LERE LALLA ALLLA LAA LALLARELELLARAAAAAA RELA LALA ELALALE 


Ae REGISTERS 
; RHAAAARA RA AAA LAAKLERA ELE LARE LLL LA RELAE ALLELE ALAA LALELERERLALLAEE 


sCONTROL AND STATUS 1 REGISTER. 


(#00) 


GO= l 

IE= 100 GO (BIT #0) ENABLE (BIT #6) 

RDY= 200 sane (BIT #7) 

Al6= 400 ie ORDER UNiBuS BITS (BIT #8) 
al7= 1000 GH ORDER ITs (BIT #9) 
BVAS, S000 DEVICE AVAILABLE (BIT #11) 
MCPE 3500 ey a AIL a alt (BIT #13) 
TRE= 40000 TRBNSFER ERROR (BIT # 

SC= 100000 -SPECIAL CONDITION (Bit 415) 
:STATUS REGISTER (RHDS1) (#01) 

OFFS= 1 :DRIVE FORWARD S"/SEC. (BIT #0) 
BOoT= 2 *BEGINING OF TAPE (BIT 

OFF20= 2 ‘DRIVE FORWARD 20"/ 75SEC, (BIT 
DIGB= 4 ‘DRIVE TO INNER GAVRD BAND (BIT. 42) 
GRV= 10 -GO REVERSE (BIT #3) 

OL64= 20 :DIFFERENCE LESS THAN 64 (BIT #4) 
ODFi= 40 ; DIFFERENCE EQUALS 1 (BIT #5) 

VV= 100 “VOLUME VALID (BIT a6) 

DRY= 200 ‘DRIVE READY (BIT #7) 

OPR= 400 :DRIVE PRESENT (BIT #9) 

PROG 00 : PRO LE (8 T #9) 

LBT= 00 iL Ret SECTOR TRANSFERRED (BIT #10) 
WRL= 4000 E LOCK (BIT 1 

MOL= 10000 M ON-LINE (BIT #12) 

PIP= 0000 BET TIONING OPERA ION IN, PROGRESS (BIT #12) 
ERR= 40000 is POSIT ERROR. (BIT #14 
ATAa= 100000 -ATTENTION ACTIVE (BIT 418) 

- ERROR REGISTER ¥Ol (RHERI) (#02) 

iLF= -ILLEGAL FUNCTION (BIT #0) 

ILR= , : ILLEGAL REGISTER (BIT #1) 
RMR= 4 ‘REGISTER MODIFICATION REFUSED (BIT #2) 
PAR= 10 ‘PARITY ERROR (BIT #3) 
FER= 20 *FORMAT ERROR (BIT #4) 

WeF= 40 aWRITE CLOCK FAIL (BIT #5) 
ECH= 100 -ECC HARD ERROR (BIT #6) 
HCE= 200 ; HEADER COMPARE ERROR (BIT 37) 
HCRC= 400 *HEADER CRC ERROR (BIT #8) 

AOF= 1000 ‘ADDRESS OVERFLOW ERROR (BIT #9) 
IAE= 2000 ; INVALID ADDRESS ERROR (BIT #10) 
WiE= 4000 ;HRITE LOCK ERROR (BIT #11) 

OTe= 10000 ‘DRIVE TIMING ERROR (BIT #12) 


—_=- —_— OT errr eee —- 


DUS 


NR INDEC= 11 ~DERHAC- -A ACY LI 7(732) 09-SEP-76 97:55 PAGE SS 
DERHAC. P11 RROR POINTE TABLE : 
643 ooce OPI= 20000 “SS OPERATION INCOMP ETE (BIT #13) 
4 40000 UNS= 40000 ‘DRIVE UNSAFE (BI 
eos 100000 OCK= 100000 ‘DATA CHECK ERROR (BIT. 15) 
oH? -MAINTAINABILITY REGISTER (RHMR) (#03) 
2649 000001 OMD= 1 ;DIAGINOSTIC MODE (BIT #0) 
2650 900002 MCLK= 2 MAINTAINABILITY CLOCK (BIT #1) 
2651 00004 MINX= 4 iMAINTAI NOBILITY IND X (BIT #2) 
2652 00010 MSTCK= 10 iMAINTA NABILITY SECTOR CLOCK (BIT #3) 
2653 000020 MRD= 20 sMAINT AINABILITY REA AD (BIT 84) 
2654 000040 MWR: 40 :MAINTAINABILITY W (BIT #5) 
e655 001000 OTSy= 1000 : MAINTAINABILITY SYNC EOETECTED (BIT #9) 
2657 :ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 
2659 000001 ajo= 1 ‘DEVICE O (BIT #0) 
2660 000002 ATi= 2 ‘DEVICE 1 (BIT #1) 
cE me Beier § Gr a 
2663 000020 aT4= 20 DEVICE 4 (BIT #4) 
2664 900040 ajTS= 4 -DEVICE S (BIT #5) 
PbES 000100 aTé= 100 ‘DEVICE & (BIT #6) 
ebbb 000200 AT7= 200 DEVICE 7 (BIT #7) 
P66 :DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 
2659 -EACH BIT IS CALLED BY BIT NUMBER 
2670 ;DRIVE TYPE REGISTER (RHOT) COE) 
2671 *EACH BIT IS CALLED BY BIT NUMBER 
eb7e *LOOK-AHEAD REGISTER (RHLA) (#07) 
é 
e674 000001 EXTIs 1 j EXTENSION l (BIT 40) 
5pS? elatetar Tae SEXTENGTON 5 (BIT wo) 
on oe B Erect (ELT 
567 00040 XT4O= 40 S EXT NeTON 4 (BIT “S) 
2680 000100 SCi= 100 OUNT FIELD O (BIT #6) 
2681 000200 SC2= 200 : SEC NT FIELD 1 (BIT #7) 
2682 000400 SCu= 400 :SECTOR COUNT FIELD 2 (BIT #9) 
2683 001900 SCid= 1000 ‘SECTOR COUNT FIELD 3 (BIT #9) 
2684 002000 SC20= 2006 ‘SECTOR COUNT FIELD 4 (BIT #10) 
2685 004000 TRKi= 4000 : (BIT #11) 
P6BE 10000 TRK2= 10000 :TRACK FIELD 2 (BIT #12) 
2687 920000 TRK4¥= 20000 -TRACK FIELD 3 (BIT #13) 
2688 040000 TRK10= 40000 : TRACK FIELD 4 (BIT #14) 
gb89 100050 TRK20= 100000 ‘TRACK FIELD S (BIT #15) 
e631 sERROR REGISTER #2 (RHER2) (#10) 
2693 00000: wus ;WRITE CURRENT UNSAFE (BIT #0) 
2694 090002 CSF= = ‘CURRENT SINK FAILURE (BIT #1) 
Fla 000004 WSUs 4 sHRITE. SELECT UNSAFE (BIT #2) 
Bae of sion ae muenge Maar ett at? 
s } 
698 ata ToF= 49 HoT Se DETECTOR FAILURE (BIT #5) 


EQS 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 97:55 PAGE S6 
DERHAC.P11 ERROR POINTER TABLE 


3B 8 ARS UTS EL 


2701 0400 WRU= 400 ‘WRITE READY UNSAFE (BI 

2702 eb 1000 MHS= 1000 : MULT PE Dr UNSAFE. BIT #9) 
2703 2000 NHS= 2000 :NO HEAD SELECTION (BIT #10 

2704 004000 IXE= 4000 - INDEX ERROR (BIT #1 

2705 010000 VU30= 10000 ; SOVOLT T UNSAFE (BIT #12) 

706 020000 PLU= 20000 -PLO UNSAFE (BIT #13) 

$707 190000 acu= 100000 -ACUNSAFE (BIT #15) 

2703 ‘OFFSET REGISTER (RHOF) (#11) 

2711 000001 OF2S= 1 -OFFSET 25 MICRO INCHES (BIT #0) 
oh BRR ibs. REESE fBa"bttho ses ata 
2714 000010 OF200= 10 OFFSET be MICRO INCHES (BIT #3) 
2715 000020 OF4YO0= 20 OFFSET 4OO MICRO INCHES (BIT #4) 
e716 000040 OF800= 40 -OFFSET 800 MICRO INCHES (BIT #5) 
2718 000200 OFREV= 200 -OFFSET NEGATIVE (REVERSE) (BIT #5) 
2719 002000 | HCI= 2000 sHEAER COMPARE INHIBIT (BIT #10) 
2720 004000 ECI= 4000 RROR CORRECTION CODE INHIBIT (BIT #11) 
e7el 010000 FMT22= 10000 -FORMAT BIT (BIT #12 
e723 -TAPE CONTROL REGISTER ‘RHTC) 

725 0 = LAVE NUM 
$7 e aida anne tSLAVE NUMBER 

727 000064 S4= r ‘SLAVE NUMBER 

2728 900010 EPARs 10 ‘EVEN PARITY 
5553 FMTo= 0 ‘FORMAT 
2731 000100 FMT4¥= 100 : FORMAT 
5535 500400 DENTS 500 i DENST TY 

734 : 1000 DEN2= 1000 i DENeITY 
2735 002000 DEN4= 2000 : DENSITY 
2736 001400 BPIs= 1400 :800 BPI 
o737 000300 NML= 300 ‘NORMAL - 2 FRAMES PER WORD 
3739 
5740 
574} 
5745 
Sou :DRIVE TYPE REGISTER 

745 o20on LVPR= :SLAVE PRESENT (BIT #10) 

a 818000 are §bob0 ‘CHANNEL ? (BIT #12) 

2748 :DESIRED CYLINDER ADDRESS (RHCA) (#12) 

ek. ‘EACH BIT IS CALLED BY BIT NUMBER. 

275] 

5752 

2753 


2754 ;CURRENT CYLINDER ADDRESS (RHCC) (#13) 


- -_ -—_ == ee -_——_— - 


MB INOEC-11-DERHAC-A ACY11_27(732) 
DERHAC. P11 ERROR POINTER TABLE 
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;EACH BIT IS CALLED BY BIT NUMBER 


;SERIAL NUMBER REGISTER (RHSN) (#14) 
sEACH IS CALLED BY BIT NUMBER 


sERROR REGISTER #03 (RHERS) (#15) 


PSU= ;PACK SPEED UNSAFE ate ai #0) 

VUF = ; VELOC TY UNSAFE ( 

UWR= 10 ;ANY UNSAFE EX CEPT BREAD /WRITE a #3) 
PRE= 20 ; DISK PACK ROTATION ERROR (BIT #4 

ACL= 40 LOW (ait #5) 

DCL= 100 ‘DC OW (BIT #6) 

SKI= 40000 : SEEK INCOMPLETE (BIT #14) 

OCYL 100000 ;OFF CYLINDER (BIT #15) 


: EACH 


ECC POSIT! 


ON REGISTER (RHEC1) (816) 
BIT IS CALLED BY 3IT NUMBER 
ATTERN REGISTER (RHECe) (817) 
BIT IS CALLED BY BIT NUMBER 


sy RERAAREEREERERAKAERERERRERALEEEEEAR AALS LER PRREAR ALAR ARERR REE EERE 


INDE 


Me 
DERHAC . P 


t- 


ll 
ll 


003000 
003000 
003002 
003002 


004056 


-DERHAC-A 


MACY11 27(732) 


ERROR POINTER TABLE 


000046 


003000 
900080 
000422 


172040 


000000 
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;BUFFERS 
.=3 


=3000 


BUFEW: 
BFEVEN: 
BFODD: .BLKW 274. 

SE TARTING LRWRESE OF REGISTERS 
172040 

176700 


172440 
MIXCS1: 176300 
PRESENT: 


RSCS1: 
RPCS1: 
TMCS1: 


.SETTL REGISTER ADDRESSES 


—-— Oo’ £ ruta 


ru 


0 


s CONTROL STATUS l 
:WORD COUNT 

: BUS NRT 

beeines 

:DESI sn SECTOR” TRACK 

‘CONTROL STATUS 2 

s PRAY OE TaTUS 


sATTENTION SUMMERY 
AHEAD 


: DATA BUFFER 
iMAINT NANCE REGISTER 
:SERIAL NUMBER 

TAPE CONTROL 


R 
‘DESIRED CYLINDER 
;CURRENT CYLINDER 
‘ERROR 2 


:ERROR 3 
SECS 


“ECC 2 


~ 


- BUFFER 


;RS ALONG 
: RP rath 


:TM ALONE 
MIXED SYSTEM 
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DERHA REGISTER ADDRESSES 
2837 s THE FOLLOWING ARE THE 1/0 REGISTERS FOR THE DEVICE UNDER TEST 
$3 1 THEY oli BE FILLED WITH ADDRESSES DEPENDING ON WHAT DEVICE IS ON 
2840 -IN THE CASE OF A MIXED SYSTEM THAT IS WITH MORE THAN ONE 8H DEVICE 
294) :THE FIRST ONE THAT EXISTS. IN. IN THE FOLLOWING LIST WILL BE PICKED 
eve ‘AND THE OTHERS WILL NOT BE USED. 
284 -LIST:- 
EG4Y4 -1) RSO3 
2eYS :2) RSO4 
eeHe | :3) RPOY,S,6 
284 : THE CONTENTS OF RHCS1 WHICH IS THE BASE ADDRESS IS 
284 : 172040 FOR RSO3/04 
2850 :176700 FOR RPO4,5,6 
2851 3 172440 


FOR 
auc =e OF THE LOCATIONS WILL BE ENTREE BY THE PROGRAM 


5585 004060 000000 ROL AND STATUS 1 


Se Boe Sas ce ee 
BE + 
004 RHFC: : FRAME ob BUS 
2857 OO40bE RHDA: ‘DISK ADDRESS 
2858 OO4066 o00000 RHDST: O ‘DESIRED SECTOR/TRACK ADDRESS 
S59 004070 o00000 RHCSe: 9 ‘CONTROL AND STATUS 2 
60 oo4072 o00000 RHDSI: 0 :DRIVE STATUS 
2861 004074 900000 RHERI: 0 eo 
62 004076 O00000 RHAS: oO sATTENTION. SUMMARY 
863 90411 0¢ RHCC: ; CHECK CHARACTER 
864 O0410C RHLA: 0 : LOOK=- A 
2865 004102 o00000 RHDB: 0 A BUFFER 
66 OCO4104 o000 RHMR: 0 smaINTATARBIL 
2867 106 900000 RHDT: 9 YPE 
2868 004110 0000 RHSN: 0 ‘CERTAL TNURBER 
aces Rae 1 alee 
. 
871 004114 BBBOB RHCA: 0 BES ED CYLINDER ADDRESS 
ze 0041 16 000000 RHCCR 0 ‘ERROR CYLINDER ADDRESS 
Se74 DOMISe HOOD RHERS; 6 ROR 
2875 004124 o00000 RHECI1: 0 ECC POSITION 
2876 004126 oo0000 RHEC2: 9 -ECC PATTERN 
2877 004130 o00000 RHBAE: 6 -BUS ADDRESS EXTENSION 
e578 004132 900000 RHCS3: O :CONTROL AND STATUS 3 
2880 
2881 
2282 
2883 
e584 sFUNCTION EQUATES 
eee : TABLE OF FUNCTIONS FOR RHCS1 THEN “GO” BIT HAS TO BE SET 
2887 904134 FUTABL: 
e888 004134 o00000 NOPERA: 0 :NO OPERATION 
eeeg 041 36 000002 UNLOAD: e : UNLOA (STAND BY) 
2890 O04:40 00006 RECALT: ; RECAL BRATE 
289i oOO414e 900019 OCLEAR: 1 ‘DRIVE CLEAR 
2e92 OO4!44 00012 RELEAS: 1 ‘RELEASE (DUAL-PORT OPERATION? 


4d Ya 11-DERHAC-A 
OERHAC. P11 REGISTER ADDRESSES 


004644 


OO4E4E 


004650 
004652 
004654 


004672 


004674 
004677 
004702 


004704 
004706 
094719 


000000 


000000 


oonooc 
900000 
000000 


00000 
00000 


172040 
176700 
172440 


MACY11 27(732) 


002 
020 
200 


004 
O40 
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SERCH: 30 -SEARCH COMMAND 
ARCUDT. 20 iH rf RUE RK DEADER AND DATA 
WRIDAT: P5 WRITE RHEE 
WRIFOR: 62 +WRITE HEADER AND DATA (FORMAT) 
READAT: 7 -R aD DATA 
REFOR: 7 REA HEADER AND DATA 
SEECOM: 4 «SEEK COMMAND 
OFSETC: 14 -OFFSET COMMAND 

ETCL: 16 *RETURNTO CENTERLINE 
PKACK: 22 ‘PACK ACKNOWLEDGE 
READIN: 20 ‘READ IN 
R NALD: B i REMING READ 
met & reverses OM 
ILLEGL: .WORD 0 :COMPUTED ILLEGAL FUNCTION 

:DATA BUFFER FOR READ WRITE 

MRFRON: BLK 70. Ee NTO THIS BUFFER 

MND: 0 STORE COMMAND FOR COMMAND ROUTINE 
COMAND: 0 :STORE COMMA 
NOGO: 0 te iat o ie 3 GIVEN IN COMMAND ROUTINE 

N T TO BE GIVEN IN COMMAND ROLITINE 
WATO: O TP EERO WRIT TER BIT TO SET 
-IF ONES WAIT FOR BIT TO RESET 
‘USED IN WAIT TRAP 

WRTBIT: O -BITS NOT WRITTEN INTO 
SETBIT: O -BITS ALW 
CLRBIT: O -BITS ACWAYS CLEARED 


STAM: 0 : TEST NUMBER 
SLAVE: 0 SLAVE NO. 
IP: 0 - IPCK NUMBER FOR ERROR PRINTOUT 
SILONM: O ito WORD D NUMBER FOR ERROR PRINT OUT 
WAITPC: 0 WAIT TRAP P 
WAITRE: O -WAITING FOR REGISTER ADDRESS IN WAIT TRAP 
WAITBT: O ‘WAITING FOR BIT IN WAIT TRAP 
‘TABLE FOR ATTENTION BITS 
-ATTENTION TABLE 
ATABLE: .BYTE 1,2,4,10,20,40,100,200 


S BASE ADDRESS 


“RESERVED LOCATIONS FOR UNIT SELECT 
BASEAD: 172040 -R 


BASPAD: 
BASTAD: 


-RP BASE ADDRESS 


176700 
:TU BASE ADDRESS 


172440 


OERHA 


00471e 


a 


004744 


O0S006 
005010 
00S01e 


005014 
COSO034 


00S0S4 
005074 


005114 
005116 


005120 
005140 


005160 


C-11-DERHAC-A 


Pil REGISTER ADDRESSES 


176300 
poGess 

0001 
000002 


000010 


000010 


nll 


000000 


000000 
000000 


000000 
000000 
000000 


000010 
000010 


000010 
000010 


000000 
000000 


000010 
000010 


000010 
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BASEMAD: 


HSP: 


a 
AST: 


sé 


; TABLE FOR GIVEN VECTOR 
>: .BLKW 8. 


BSGIVV 


USEVEC: 


ht f 
UNIT: 


TSRHNO: 


TSDEVICE: 


TSUNIT: 


TSSLAV: 


TSTOTL: 
TSINDX: 


TSVEC: 


TSBAE: 


TSCS3: 


OOO 0O000 Of 


a 


ll FOR Fe Ned tan ADDRESSES 


0 
0 
STe00: 0 

- TESTING TABLE 
. BLKW 


» BLKW 


. BLKW 


» BLKW 
» BLKW 


» BLKW 


176300 


MIXED SYSTEM BASE ADDRESS 


“RS VECTOR 
-RP VECTOR 

VECTOR 
MIXED VECTOR 


HE Be 
IESE WEF 


FOR A CALCULATION 
‘LOOP COUNT "FOR 340 STA 
sLOGP COUNT FOR e210 eTART 
;USE VECTOR 


;IF ONES OPERATOR WILL GIVE ADDRESSS 


UNIT UN 
-ALL ONES INDICATE err ane FROM 200 
-RH NO TO BE TESTED IN ORDER OF TEST 
8. 


-DEVICE TO BE TESTED. IN, ORDER OF TEST 
*1=RS03,3/L,3/LA eRe 
:10=RP04,5,6 DUAL ORT "34 


sUNIT NO. TO BE TESTED IN ORDER OF TEST 
;SLAVE NO TO BE TESTED IN ORDER OF TEST 


; TOTAL NO. OF UNITS TO BE TESTED 
INDEX TO ONE UNDER TEST 


; VECTOR ADDRESS IN ORDER OF TEST 
;RHBAE ADDRESS IN ORDER OF TEST 


sRHCS3 ADDRESS IN ORDER OF TEST 


Abang 4=RPO4,5,6 SINGLE PORT 


Ae ptt -DERHAC-A 
DERHAC.P11 


005200 


00S220 


00S240 
00Se4e 


00S244 
O00S246 


00SeSe 
00S2S4 
00S2S6 
00S260 
pases 

05264 
008270 
008672 
005274 
005276 


000010 


009010 


000000 
000000 


000006 
000000 


000000 
000004 


000004 


00000 


MACY] 


REGISTER ADDR 
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TSCOMD: .BLKW 8. :COMMAND ADDRESS IN ORDER OF TEST 
TSBASE: .BLKW 8. ‘BASE ADDRESS IN ORDER OF TEST 
ERFLGS: 0 ‘ERROR FLAG 
FIRST: O IF ZERO WILL TYPE HEADER 
-IF ONES WILL NOT TYPE HEADER 
ATTENT: O “ATTENTION BIT FOR PRESENT UNIT 
TOTALAT: 0 -TATAL ATTENTION BITS 
TMPO: .WORD O : TEMP STORAGE 
TMP1: .WORD O 
TMP4Y: .WORD O : TEMP STORAGE 
‘PERMANENT TABLE 
PERRS: {72040 RS BASE ADDRESS 
ree: reg Be oes 
PERMX: 176300 uh: Bae ADDRESS 
PERRSV: 204 -RS VECTOR ADORESS 
PERRPV: 254 : RP VECTOR 8 RA 
PERTUV: 224 ‘TU 
PERMXV: O : MIXED VECTOR ABCRESS 
PERNUM: 4 sNUMBER OF RH 
sWORKING TABLE 
DEVPNT: .BLKW 4 -BASE ADDRESS TO BE TESTED 
VECPNT: .BLKW 4 - VECTOR ADRESS TO BE TESTED 
LTRY: 0 NO. OF UN UNITS 0 BE TESTED 
TESiDY: TORE SORES OF OF TEST. DEVICE 
TESTVC: = 3gae8 § "BEE BF fest pe 
: THE E Two O 1s BEFO iY 
‘DEVICE. 18 


Se en ae 


; TABLE es _ORIVE TYPES 
:O=RS03 RSO3/L 


2=RSO4, 3=RSO4/L, 4=RS03/LA 


: 20020= “SINGLE SORt RPOa. Su020=DUAL PORT RPO4 


sc00e l=BiNGE PORT RPOS, 24 
TO Tae T UTE NGLE PORT RPO&, 24022=DUAL PORT RPO6 


. WORD 


O21=DUAL PORT RPOS 


0,1,2,3,4, 20020, 24020, 20021 ,24021, 20022, 24022, 142010 


DERMAC SPL REGISTER ADD 


005506 
005510 


005Sie 


005520 


aw ®@ 
o™ 


SSES 


024020 O200e1 Oe40el 


O200e2 Oekx02e 142010 
0000 


0014 
000000 
000004 
000004 
000004 
po000% 

300004 

100004 
000004 
000004 
000004 
000004 
000000 
090000 


000000 


900114 


LOS 
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POINTT: O :POITER TO ABOVE TABLE 

NTYPNT: 14 ‘NUMBER OF ABOVE TYPES 

TMPSLV: 0 : TEMPORARY SLAVE COUNTER 

s TABLE OF DATA FOR DEVICES FOUND 

FDEVIC: .BLK :DEVICE FOUND, 1=TU, 2=RP QUAL 
-3=RP SINGLE, “H=RS04, S=RS03 

FUNITN: .BLKW 4 ‘UNIT NUMBER FOUND 

FTYPE: .BLKW 4Y -DDRIVE TYPE FOU 

FVECTR: .BLKW 4 *VECTOR FOUND 

FBASEA: .BLKW 4 ;BASE ADDRESS FOUND 

NM: .BLKW 4 -RH NU FOU 

FSLAVE: .BLKW 4 TUNG SLAVE NUMBER FOUND 

FORIVR: .BLKW 4 ADOR ESS FOUND 

FBAE: .BLKW 4 Pe "BooRESS FOU 

FCS3: .BLKW 4 ADDRES FOUND 

TSTUNT: O ‘TOT, NUMBER OF RH FOUND AT 
‘END OF SIZE 

WORUNT: 0 -SAME AS ABOVE BUT TO BE 
‘DECREASED AT END PROGRAM 

VECTOR: O ;VECTOR UNDER TEST 


MEMERR: 1 
PARE70=114 


‘LOW ERROR ADDRESS REG. 
‘HIGH ERROR ADDRESS REG 
MEMORY SYSTEM BOQRESS REG 
: PARITY ERROR VECTOR FOR 70 


Me aes DER HAE CISTER 7 thi 27 (732) 


3091 


Z8 


“wre OwWono 


N 


b— bb Bb Bh bb bb Pb pb bb he b= Fb bh = hh eh pee 
co 


WU) 30) G) G0) GUI 0) WU OI) GI OIG) C0) (ULI 0) CJ CIO) 0 OC) CG) CO GC) CI) CI CI) Ga) 


_— 
= 
es 


006024 


012737 


pos0a? 


012637 


Te 
Bi 706 
a17i 
04737 
Rae 


001001 
000402 


177777 
o0Sole 


001100 
001140 
001000 


O04 


005730 


005736 


000176 
000174 
000004 


000000 


44064 
45100 
o0s24e 


00S01e 


173214 


001140 
001142 


177776 
000036 
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.SBTTL REGISTER TEST 
200 


BEGIN: MOV #-1 i 
: TR 
BEGINe: CLR T200 


START: 
.SBTTL_ INITIALIZE THE COMMON TAGS 


;;CLEAR THE sia“ TAGS (SCNTAG) ae 
MOV nT, Re FIRST LOCATION TO BE CLEARED 
CLR (RE) : CLEAR MEMORY LOCATION 


MP SHR, Rb cy 
28, ‘L008 BACK IF NO 
::SETUP THE STACK POINTER 
107, VECTOR FOR SCOPE ROUTINE 
en VECTOR FOR ERROR ROUTINE 


MOV 

;s INITIALIZE Q Fei VECTORS 
MOV #SSCOPE AS TOTV C ; 
MOV $34 0. a#LOTVEC+ 
MOV SSERROR ee 














ae ee 
my OOO piauineevec a ger ee 

NOV u$P MAN SHURE Tia FAILURE VECTOR 

CLR sTines :: IN TIAL IZE NUMBER OF ITERATIONS 

CLR SESCAPE Hts, HE ESCAPE ON ERROR ADDRESS 
MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 

NOV t., SLPADR NITIALIZE THE LOOP ADDRESS FOR SCOPE 


MOV #. ’SLPERR Et THE E LOOP ADDRESS 
1 SIZE FOR A HARDUARE SUI TCH ne cidset IF NOT FOUND OR IT IS 
: EQUAL 19 A “=1" SETUP FOR Q SOF TWARE SWITCH REGISTER. 
(SP) +:SAVE VECTOR 
NOV #64, JERRVEC ter UP ERROR VECTO 
40s SWR si SETUR FOR A A HARDWARE SWICH REGISTER 
MOV 8 Bice DISPLAY HARDWARE DISPLAY REGISTER 
CMP #-1,95 , aSWR is TRY To 0 REFERENCE HARDWARE SWR 


BNE 3} Me a TRAP sg 
an oce Hs Te HARDWARE SWR IS NOT = 

64S: Ory #65$, (SP) er UP Akt RETURN 

653: MOV #SWPEG, SWR prom TO SOFTWARE SWR 


MOV ¥DISPREG, DISPL 


665: MOV (SP)+, JHERRVEC ” RESTORE ERROR VECTOR 
NOV #2 HTRAPVEC+2 ina PROCESAP RIORITY = 4 
MOV tet, aeTea T RP vecTOR ADDRESS ~ 


MOV SRPVECT” (RO)+ 


MOV #340, (RO) mo i ATER SUI Tt NE 


ISR pc 248 TKINT orn 

CLR PRITEM LEA re ERROR MESSAGE PRINTOUT 
TST JeF IRST -IS THIS FIRST TIME ROUND 

BNE 18 ‘BRANCH IF NOT 


———— ee 


ARE SH Ecru ETE ETE QE P78 755: Prat 


4B 48 oe03s ee Spooe O00046 a8: oP eae aeuG “ARE WE IN QV OR AUTO ACCEPT MODE? 
a8 : ‘ 
cetera ay et TORN tIF YES, SKIP HE 
006042 104401 OOo60S0 TYPE 68S ; | TYPE ASCIZ STRING 
006046 o00426 $ ET OVER THE ASCIZ 
seas j 4688: "ASCIZ <15><12>/RH70 FUNCTIONAL CONTROLLER TEST DERHA-C/ 
006124 012737 177777 goseu2 SND1: MOV a-1, 09° IRST ae NENT TINE 00 _NOT GIVE HEADER 
if Biss ? Baa Su8 Bbat te NOV #340 eMBE oT S PRIORITY ru 
006146 012737 037610 oo0004 MOV #TIEOUT, JHERRVEC TIMEOUT VECTOR 
006154 012737 O00340 o00006 MOV #340, JHERRVEC+2 tp IORITY 


RET ee creh feet CAVICEE. coc 10 cn ne evSTN, 
ICE IS ON THE S 


ES 
ee HG ED hl a "PA DRLIRE FHRRCORY OF 


HE FIRST ONE THAT IS PRESENT 
g THE. FOLLOWING ‘ist 


WIIG) GIGI CUCU CI GIGIG) 
tertertrttertntartetateet att mt ttt ttt tt tent tte tt tt 


iM 


HE "WAY THE TEST WORKS IS AS 


pie AF Pb han ae EN it 1 


THE I70 REGISTERS ARE 
FI FILLED WITH THE APPR AP OPT ate SES 
TYPE REGISTER IS CHECKED TO HAVE GOCD 


a FGA I PL Pi 


HEN A TM D. 
THEN A MIXED SYSTEM WITH MORE THAN ONE RH DEVICS IS TRYED. 


sp SEREASSESSSLLAEEP LALA ELELLLAALALELELELRAALALAAARALAEAALERLESS 











FOB DWNT £tsU 90D OUT L Ga IG) VOUT EOS rU LDeD WEP UTE CUFO CQeBeD VE OFUT EOP Coca 





ee a ae ee ee ee ee ee 


A tame at et a ef wet aot J) G) GJ WIIG) GC) GIG) 


ree eit tl 


DERHAC . P 
3203 


one f 


b= fh pe fp b= be be 


rororuru rorurororurure 
WO Iu £ Wrure-O 


& 








O06 
006404 


006S2e 
006526 


04401 
00417 


013746 


000001 O0lele 


00501e 


S001 


006S2ee2 
006234 


006300 


005320 
005250 
009001 


006334 


00S2Se 
006406 


005300 
006426 


00S2Se 
000200 
005310 


00SeSe 
005250 


005300 
005210 


J 


00S2Se 


1$: 


es: 


bas: 


-67$: 


bes: 


3$: 


-698: 


bas: 


-71$: 


bbs; 


-7 39: 


bbs: 


SETSI2Z: 


-655: 


SCOPE 
M 


BY 


BUG 
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VICES 


#1, $TIMES 420 1] ITERATION 

ST200 Ss 00 START 

2 1% cH iF ae START 
aPERRS, ,RO ; POINT R TO MOVE 9 WMROS FROM 
SDEVPNT Re : POINTER TO MOVE 9 TORDS TO 


{RO)+, (R2)+ ‘FILL WORK TABLE 


1$ -BRANCH IF 9 NOT DONE 

SETSIZ 

65S ss TYPE feciz STRING 
ug HE ASCIZ 

C15) <12>/HOM MANY” = 10 BE TESTED / 
675 »: TYPE ASCIZ STRING 


6$ -:GET OVER THE ASCIZ 
(15><12>7 7 


SP) .LTRY -GET NUMBER OF RH TO BE TESTED 
SP)+. TMPO ‘WORKING NUMBER OF RH 

SP *RH NUMBER TO BE TYPED 

RO : INDEX TO WORKING TABLE 


£95 : : TYPE ASCIZ. STRING 


8S VER asciz 
(15><12>/TYPE padi” ADDRESS OF RH NO/ 
TMP1,-(SP) 

715 :: TYPE ASCIZ STRING 


O$ ;;GET OVER THE ASCIZ 
(15><12>7 7 


(SP)+,DEVPNT(RO) ;FILL WORKING TABLE WITH BASE ADDRESS 
73$ ;; TYPE ASCIZ STRING 
OVER THE ASCIZ 


725 GET 
(15><12>/TYPE vebtor ADDRESS OF RH NO/ 


TMP1, -(SP) 

,» CRLF 

1 4+ agecectmaad™ Ap TL HOR BORK ING TABLE WITH VECTOR ADDRESS 
T™ Abt NEXT RH NUMBER 

TMPO ‘COUNT DOWN RH TO BE TESTED 

3$ ‘BRANCH IF ALL NOT DONE 


tay WILL HAVE DEVICE POINTER, Rl WILL HAVE VECTOR POINTER 
#DEVPNT,R QINTER 


EVICE P 


;D 
¥VECPNT, RI ‘VECTOR PMINTER 


——— <r ee ee eee ee ee re ee © -—_— - 


SREY 


3259 
3260 


006766 
006772 


007014 


005037 
012737 


012702 
012703 


Bt ao 
062708 
Baas 
0007? 
12737 
12737 


Bae ade 


000137 


013702 
013762 


RAES Se 
005777 

000403 
104146 


OT St oR Ru bevices 


005322 
pAveso 


176544 


000026 


17S2S6 
005330 
000014 
000001 
175244 
000014 
00S362 
005330 
010554 
010000 
010546 
005364 


02000 
000007 
10554 


05364 
040000 


005322 
005364 


007014 
176314 


000004 


001126 


175170 


175172 
001126 
001126 


005364 


175074 


OCS446 
000004 
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SSe: 
1$: 


eS: 


SS6: 


3$:\ 


SS7: 
4$: 


16$: 


93: 


CLR TFOUND sWIL L BE USED AS POINTER 
MOV wSS4, ERRVEC ‘TIME OUT VECTOR TO REDUCE LTRY 
MOV (RO)+, TESTDV fee OF DEVICE TO BE TESTED 
MOV (RL}#” TESTVC i VECTOR TO i TESTED 

TST JTESTDV TRY TIME OUT ON DEVICE BASE 


-IF NO TIME OUT OCCURS THEN DEVICE IN TESTDV IS PRESENT 


‘NOW FILL ALL REGISTER ADDRES 
OV #22. .Re 
MOV SRHCS I. R3 ‘GET BASE LOCATION 
MOV TESTDV. RY ‘GET BASE ADDRESS 
MOV RY, (R3)+ “FILL PROPER ADDRESS 
ADD #2,R4 Papa god ADDRESS BY 2 
DEC Re UNT DOWN 
BN es ‘BRANCH IF 22 NOT DONE. 
CL RHCS2 -SET UNIT NUMBER 
MOV #TYPNT POINTT ‘POINTER TO DRIVE TYP 
MOV #14, NTYPN ‘NUMBER OF DRIVE TYPE 
CMP #1, NTYPNT :1S IT FOR TU 
BEQ iF FO R Tu BRANCH 
MOV @RHOT SBDDAT EAD ORIVE TYPE 
MOV 44Re “GET NUMBER POR’ DY NOT DONE 
SUB Ntyp T,Re “GET OT TO DO 
ASL 2 :MULTIPLY Re BY 2 
CMP TYPNT(R2),SBDDAT’ ;IS DRIVE TYPE FOUND 
BEQ 16$ ‘DRIVE TYPE FOUND SO BRANCH 


SS8 
BIT #NED, JRHCS2 -IS IT NON EXISTANT DRIVE 
BEQ 8$ NOT SET, DRIVE TYPE FOUND SO BRANCH 
7: DEVICE HAS NOT BEEN FOUND 


Smp sss A DEVICE HAS NOT BEEN FOUND SO BRANCH 

TRYING THE TUl6 DRIVE ven 
T -SLAVE 0 

sat THPSLY JRHTC  :MOVE SLAVE NUNBER IN TAPE CONTROL 


MOV DRHDT,$BDDAT :READ DRIVE T 
BIT aSLVPR, SBDDAT ;IS SLAVE PRESENT 


BNE 
CMP 87, TMPSLV -IS 7 DONE 
BNE 178 ‘BRANCH IF ? DONE AND NONE FOUND 


INC 7h MPSLV ;GET NEXT SLAVE 
MOV #TRE, JRHCS1 ; CLEAR NXP Re ERRORS 


BR : TRY 
-A DEVICE HAS BEEN FOUND’ SAVE SLAVE 

Mov TFOUND, Re -GET NO OF RH FOUND X2 FOR INDEX 
MOV TMPSLV; FSLAVE (Re 

-A DEV ICE H HAS ave FOUND TEST VECTOR 


MOV TIM NE OUT VECTOR 19 REPORT ERROR 
TST 3 BSS ‘TRY TIME OUT ON 
BR on -A VECTOR EXISTS 56 CONTINUE 


;A DEVICE BASE ADDRESS DID 


ERROR 146 NOT 
;TIME OUT BUT ITS CORRESPONDING 


- ~ = em errr ee te ee ee ee eee eee —_— ~= - oe -©« 


007330 


000767 


022762 


OToe FOR RM DEVI 


005322 
005362 


000002 
005476 
000002 
000003 
000004 
000005 


000006 
000007 


00S476 


000010 
000011 
000012 
000013 
000014 


005366 
005376 


005436 


O00S366 
O00S4S6 


005366 


005366 
005366 
005366 
005366 
005366 
OOS4S6 


005366 
005366 
005366 
005366 
005366 


DUG 
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CES 


10$: 


11S: 


12S: 


138: 


HALT 


MOV 
MOV 


or 4,5,6,7= 

-10,11,1 138 
DRHCS2, FUNITN(Re) ;GET RA si 
#177770,FUNITN(Re) |;KEEP UNIT uses 
JRHDT,.FTYPE(R2) ;DRI BY YT 
TESTVC, FVECTR(Re) ; VEC OR 
TESTDV, FBA aR) ‘BASE A 
TFOUND. FRHNM ait fis 3 M NUS ONE 
ERHNN (Re MINUS 
#1, FDEVIC(R2) +7" iT + Th 


ac TH, FD JFDRIVR(RE) 


TEST 
#(2e14.> ep) 
(SP) FBAE (Re) 


t6))+, ECS3(R2) 


ssl 

te FDEVIC(R2) 
#3, FOEVIC(Re) 
12$ 

#4. FDEVIC(R2) 
#5, FOEVIC(R2) 
#6. FDEVIC(R2) 
#7. FDEVIC(Re2) 
TESTDV, 

#220. ) (SP) 

(SP) ) FBAE (Re) 
teh) + FCS3(R2) 


SSl 
#10,FDEVIC(Re) 


14 
#11,FDEVIC(Re) 
14$ 
#12,FDEVIC(Re) 
14$ 
#13,FDEVIC(Re) 
14$ 
#14, FDEVICCR2) 


13 : BRAN 
¥CMINDRP, FORIVR(Re) 
(SP)  ;BA 


;VECTOR ADDRESS TIMED OUT 


sREPEAT THIS TEST 


BR 8$ 
-@ DEVICE HAS BEEN FOUND AND VECTOR RESPONDS SO STORE RESULTS 
TFOUND, Re T HF NO. Xe FOR I NOE 
NTYPNT, EDEVIC(R2} 


NO 
41 tee 4sTyi 


CH IF NOT TU 
jORIVER ADDRESS FOR TU 
;BASE ADDRESS 
i 15TH ADDRESS 1s BAE FOR TU 
-16TH ADDRESS IS CS3 FOR TU 
‘SAVE CS3 FOR TU 


;IS IT RP DUAL PORT 
; BRANCH IF RP FOUND 


t BRANCH IF_RP FOUND 
-IS IT RP DUAL PORT 
i BRANGH_ TF RP FOUND 


; BRANCH IF_ RP FOUND 
-1S IT RP_DUAL PORT 
sewiany RP FOUND 


CH_IF NO RP 
‘DRIVER ADDRESS FOR RP 


Q 
je1ST ADDRESS IS BAE FOR RP 
: BOND ADDRESS IS CS3 FOR RP 
-SAVE CS3 FOR RP 


;IS IT RSO3/LA 
; BRANCH ie RS03/LA 


BRANCH iF ROW 
Sew RSO4 


71S IT 
BRANCH IF RS03/L 
IS IT RSO3 


sHIT CONTINUE TO REPEAT THIS 
TEST 


MAINDEC-11-DERHAC-A 
DERHAC.P11 Tl 


00761 
0076 ie 


ca7bes 
07526 
007632 


104401 
000406 


016646 


000410 


01624 
10440 
a00137 


000411 


MACY11 


SIZE FO 


R Re Bev 
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CES 


041502 OOS4SE 14S: 
005324 


005476 


007404 


005436 
007434 


005426 
007472 


000001 
007520 


OOS446 
010346 


000002 
007570 


010346 
000003 


007634 


005556 


005366 


005366 


1S$: 


1$: 


-733: 


723: 
es: 


-37 58: 


15$ ANCH IF NOT RSO3 
HCMNORS , FORIVRCRE) ‘DRIVER ADDRESS FOR RS 
TEST DV, -(SP) ASE ADDRESS 

BAE FOR RS 


1) Fone (Re) ig BRE FOR Ae 
14TH ADDRESS IS CS3 FOR RS 
(Sb), FeS3(R2) Save CS3 FOR RS 
‘PROGRAM ERROR 





sNOW TYPE RESULT 


TYPE 
BR 
~ASCIZ 
MOV 
TYPOS 
ayre 
.ASCIZ 


B 
.ASCIZ 


6$ 
#3,FDEVIC(R2) 


&5$ 
4$ 
(15) <12>/0N RH NO? 
FRHNM(RE),-(SP) ; TYPE RH NUMBER 
675 -: TYPE ASCIZ STRIN 
b6$ i 3GET OVER THE ASC 
/ BASE / 


FBASEA(R2) ,-( SP) 


; i TYPE ASCIZ STRING 
;GET OVER THE ASCIZ 


G 
IZ 


; TYPE BASE ADDRESS 


69$ >; TYPE ASCIZ STRING 
8$ -:GET OVER THE ASCIZ 
/ FQUND/ 

#1,FDEVIC(R2) -IS IT 

1$ ; BRANCH Ye ty NOT TU 
71$ TYPE ASCIZ STRING 


O$ tIGET OVER THE ASCIZ 
/ TU16 AT SLAVE/ 


FSLAVE(R2),-(SP) ;TYPE SLAVE NUMBER 


6S 
-TH WING TYP 
The DEVICE AND Mater 
DEVIC: 2=RP DUAL PORT 
a CINGL boat 
sReaT TAY iy RSO3 
#2, FDEVIC(R2) +c IT RPO& DUAL PORT 
25 AN NCH F NOT “ROR DUAL PORT 
735 ie E ASCIZ STRING 


e$ T OVER THE ASCIZ 
7 RPO& DUAL PORT’ / 


73% IT RPO6 SINGLE PORT 
ANCH IF NOT BONE SINGLE FORT 
S$ TY “s ASCIZ STRING 


4§ T OVER THE ASCIZ 
Y RPO& SINGLE PORT 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 97:55 PAGE 70 
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3427 007656 74S: 
3428 007656 000137 010346 IMP bS 
3429 007662 Oe276e OO0004 cOS3bE 3S: CMP #4,FDEVIC(R2)  ;IS IT RPOS DUAL PORT 
3430 007670 001020 SNE 4g ‘BRANCH IF NOT RPOS DUAL PORT 
3431 007672 Ole7be ocoodde 005366 MOV #2, FDEVIC(Re) 
3432 007700 104401 007706 TYPE 77 3+ TYPE ASCIZ STRING 
3433 007704 o00410 BR 7b ‘GET OVER THE ASCIZ 
3434 ..77§: -ASCIZ / RPOS DUAL PORT?’ 
su3t Boor Se 000137 910346 78: JMP bS 
3437 007732 Oe2e76e OO000S ocosa6e 4S: CMP ¥S,FDEVIC(R2)  ;IS IT RPOS SINGLE PORT 
3438 007740 001020 BNE 8 ‘BRANCH IF NOT RPOS SINGLE PORT 
3439 007742 012762 000003 005366 MOV #3, FDEVIC(R2) 
3440 007750 104401 007756 TYPE 795 ;; TYPE ASCIZ STRING 
3441 007754 000411 BR 78S ‘GET OVER THE ASCIZ 
3442 --79$; .ASCIZ + RPOS SINGLE PORT, 
3443 010000 78S: 
Sade BT DBDS eae o00006 O0S3b6 8s Re oe FDEVIC(R2)  ;IS IT RPOY DUAL PORT 
3446 010010 001017 BNE ‘BRANCH IF NOT RPOY DUAL PORT 
3447 010012 012762 ocoo002 005366 MOV #2, FDEVIC(R2) 
3448 010020 104401 O10026 TYPE 4815 :: TYPE ASCIZ STRING 
449 9100204 O00410 BR 805 ;3GET OV asciz 

S --81$: .ASCIZ POY DUAL PORT” 
3451 0100 BOS: 
sues BI Dbee Ee 000007 o0S366 9 hp 3 FDEVIC(R2)  ;IS IT RPOY SINGLE PORT 
3454 910056 001020 BNE ‘BRANCH IF NOT RPOY SINGLE PORT 
ee Glaeee (ewer STEERS OO FR, HRARFEUCRE) oe ascrz stag 
Sues BT Dee 900411 BR 3 SI CET over ¢ 2 asciz 
3458 -83$: .ASCIZ 7 RPOY SINGLE PORT? 
3459 10116 bg: 
Suet sures aes co0010 o0S36E 10% on Sto FDEVIC(R2) 1S IT RSO3-L 

ww ; 4 } \ 

34 Bt BSE BB On BNE 11$ : BRANCH TE NOT NOT RSO3-LA 
SHE BIGLSE TGGMBT Sibtaa 205366 type BRS tye asctZ STRING 
3465 Bt tae anit BR 5 GET OVER tue asciz 
3466 -:85$: .ASCIZ / RSO3-LA/ 
3467 O101S6 4s: 
Ma: bibie¢ at 000011 OOS3EE 118 on 7 FDOEVIC(R2) :IS IT RSOY=-L 
3470 010166 001013 BNE l ;’ ‘BRANCH IF NOT RSO4-L 
B47 DIDIe GpeBT Booby 205366 Mere atg SRE) pyPE ASCIZ STRING 
au9 Bt Bea ABou t tIGET OVER ti asci2z 
3474 -87$: .ASCIZ 7 RSOY-L/ 
3475 010214 bis: 
3476 10214 DO0454 BR 6$ 
34 10216 Oe2e762 OOOCl2 OOS3EE 128:  # CMP B12,FDEVIC(R2) ;IS IT RSOY 

78 010224 O0i012 BNE 13$ ‘BRANCH IF NOT RSO4Y 
3479 010226 012762 o00004 onS3266 MOV 84. FOEVIC(R2) 
2480 010234 1 a401 019242 TYPE 85s ;; TYPE _ASCIZ STRING 
348) O:0240 Of04 -:GET OVER THE ASCIZ 


3 BR 8s 
S48e ;;898: .ASCIZ / RSO4/ 


MB INDEC-11-DERHAC-A 
OE Tl 


RHAC. PI] 
3483 State, 
nies 010680 
38e 010260 
a 
83 010274 
3430 
se G10 
“ l 
10310 
sis Gises 
ae 
3497 019332 
3498 
3499 010342 
3500 O1034e 
3501 010344 
3s : Ate 
em ett 
3505 
2208 bit376 
yr pita 
35039 O10404 
3510 O10410 
Gna 
Bie pupa 
3514 Q10440 
3515 01044e 
get 010446 
3518 D146 
1s Gigies 
3521 
3Se2e OlO46E 
3523 
3524 
aeS¢ DIOSBE 
3527 
sock tees 
3 6 iene 
sgt ene 
He UUe06 
3534 010514 
3535 010520 
S36 010524 
ED 


000401 
000000 


sit 
ses 


104401 
000411 


16246 
104402 
104461 
000402 


04401 
O04Ge 
062737 


005337 
000137 
O0e 1 


090137 


MACY11 27( 7°32) 
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000013 COS36E 


O10276 


000014 


ee 


010354 


005376 
010412 


005416 
010450 


010462 


0S00Ce 


005320 
006536 
00S32e2 
OOSS06 


O0S51C 
010632 


005366 


00S366 
005366 


00S32e 


GO6 
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ges: 
133: 


aig: 


14$: 


big? 


S$: 
6$: 
sae 


big” 


bigs 


\Aag 


7$; 
SS3: 


_ TYPE age” 


-101$: 


6$ 
MP B13,FDEVIC(R2) ;1S IT RSO3-L 
SNE 14$ ‘BRANCH IF NOT RSO3-L 
MOV — 


;; TYPE ASCIZ STRING 
B ;;GET OVER THE ASCIZ 
-ASCIZ / RSO3-L/ 


BR 6S 

CMP #14,FDEVIC(R2) ;IS IT RSO3 

BNE 5§ :BRANCH IF NOT RSO3 
MOV #5. FOEVIC(R2) 

TYPE 93$ ; TYPE ASCIZ STRING 
BR 2$ -:GET OVER THE ASCIZ 
-ASCIZ 7 RSO3/ 

BR 6S 

HALT : PROGRAM ERROR 

TYPE 3 $ : 3 TYPE ASCIZ STR 


ING 
OVER THE ASCIZ 


‘GET 
.ASCIZ (18) <12>/AT UNIT’ NUMBER/ 


MOY FUNITN(R2),-(SP) ;TYPE UNIT NUMBER 
TYPE 975 : 3 TYPE ASCIZ STRING 
BR 365 GET OVER THE ASCIZ 
.ASCIZ VECTOR’ / 

OV FYECTR(R2),-(SP) ;TYPE VECTOR 

TYPOC 


>; TYPE Conte aes 
BR 288 ;;GET OVER THE ASCIZ 
-ASCIZ <15><1leo?/ # 

TYPE § 


-ASCIZ <«19><le>/ 7 


7; 1YPE Rae le p TRING 
;;GET OVER THE ASCIZ 


‘UPDATE TFOUND 
ADD #2, TFOUND :GET READY FOR NEXT DEVICE 


;ALL at, * poe" IF LTRY BECOMES ZERO YES ALL DONE 


EC : REDUCE DEVICES LEFT TO TRY 
BEO ne ‘BRANCH IF ALL COMPLETE 

IMP $S2 “ALL NOT DONE 

MOV TFOUND,-(SP)  ;GET TWICE NUMBER OF RH FOUND 
ASR (SP BRIDE se c 


MOV (SP), TSTUNT 
MOV (SP)+, WORUNT 
JMP TSTe ;JUMP TO NEXT TEST 


-A RH TIMED OUT SO TRY NEXT UNIT OR END TRYING 


~ -_- — -_ —— - 


MRINDEC-11-DERHAC-A 
DERHAC.P11 Tl 


oO OON0d0000000C0 


RR 
ey 


010704 
010704 
010710 


010732 
010732 
010736 


010740 
C10744 


Reeans 





000137 


O12737 
012737 
012737 


013746 


000402 


104401 
000410 


016246 
104405 


104401 
000410 


MACY11 27(732) 
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005320 
006536 
010506 
040000 
005362 


006626 
173276 


173264 
177770 
000010 
0066 le 


010530 


000091 
037610 
000340 


005510 
00SS06 


010700 
610712 


005436 


010746 


173304 


O0léle 
000004 
CO000E 
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SSH: DEC LTRY 
2 
1$: IMP SS3 
A 
sss Mov 
$8 : NTYPNT 
>: ib 
1$: INC 
MOV aonE SS RHCS! 
MOV JRHCS2, - (SP) 
BIC al777et (SP) 
CMF (SP 34 
BEG 
IMP 5S 
2¢: ERROR 147 
HAL T 
IMP ss4 


DRIVE TYPE DID NOT Pa Hz TRY NEXT 
#TRE, JRHCS] 


;RH eee ni ho RH TYPED 


RANC 
NOT bo 
‘ALL DONE SO STORE NUMBER OF RH FOUND 





NED ERROR 
ER OF DRIVE TYPES TRIED 


acer et DONE 


GET NEXT UNIT NO. 

CLEAR ERROR 
RHC 

GET IT NO 


3 BRANCH IF 7 DONE 
NOT DONE SO TRY NEXT UNIT NO 


;DEVICE ADDRESS DID NOT TIME 
-OUT BUT NO UNITS HAD 
; APPROPRIATE “DRIVE TYPE. 


en tae ace GE ee eee 


#TES TEST 
; HIS T oT T TO ESTED 
:# “TaIS, 1s Is T a AFTER THE END OF THE PROGRAM 
Wis Bice cee ie Sines Seca 


thy 0 
Rov TIMES »:D0 1 ITERATION 
MOV stteout JBERRVEC -TIMEOUT VECTOR 
MOV 8340, JKERRVEC+2 :PRIORITY 7 
MOV WORUNT,-(SP) | ;GET WORKING RH NUMBER LEFT 
MOV TSTUNT, Re ‘GET TOTAL NO OF RH FOUND 
SUB (SP)+,R2 :NO OF RH TO z TESTED 
ASL R>2 : INDEX FOR RH : BE TESTED. 
TYPE 858 ii TYPE ASCIZ STRING 
BR o4§ GET OVER THE ASCIZ 

j i858: ASCIZ <15><12>7 / 
TYPE 1678 ;;TYPE ASCIZ STRING 
R ae: ::GET OVER THE ASCIZ 

j i678: ASCIZ <15><12>/TESTING RH NO/ 
MOY FRHNM(R2),-(SP) ;TYPE RH NO. 


69% 
BR b8$ 


:; TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


Ar ptt one 
DERHAC.P11 e 


Oooo 0000 
QWUK— SNC OUUIUIU 
one Poroer £OO 


eh ee ee 
Lororan £0 


ru 
° SINOO ull 
Ocoor 


OON0Dd00O 2800 O00 2BO0O0000 OB200000 200000 DBOO0O0000 DO00000 200 
uJ) rr OOD 
rome PO 


016246 
4405 


000403 
000414 


104401 
000403 


000401 
000090 


104401 
000411 


016246 


000411 


MACY11 27(732) 


UNIT UNDER TEST 


010774 


00S426 
0C0001 
011036 
00S446 


0CO00e 
011076 


000003 
011136 


000004 
011176 


000005 
011224 


011244 


005376 
011302 


005366 


005365 


005366 


005366 


005366 
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-695: 


bas: 


-715: 


bis: 


-733: 


big: 


1$: 


-75$: 


At 
es: 


773: 


bbs: 
3$: 


-79$: 


at 
4$: 


-81$: 


bas: 
S$: 
6S: 


-83$: 


bd¢: 


/ASCIZ 
TYPE 
BR 
»ASCIZ 


OV 
YPOC 
M 


/ 


71$ 
+0 
/ BASE / 


USING / 


FBASEA( Re) ,-( SP) 
here seeoeen 


2 
/ TU16 AT SLAVE/ 
FSLAVE(R2) ,-(SP) 


6$ 

#2, FDEVIC(Re2) 
2$ 

75$ 
7ug 
7 RP DUAL PORT / 


6$ 
#3,FDEVIC(R2) 
77$ 


6$ s8 
/ RP SINGLE PORT/ 


6$ 
#4, FDEVIC(R2) 
4$ 
79$ 


72$ 
/ RSOYZ 


6$ 
#S, FDEVIC(Re) 
5$ 
81$ 


O$ 
/ RSO3/ 
6$ 


B 


83$ 


8 
4 


5$ 
$ 


>; 1YPE 12 at AI 


;;GET CVER 


ASCIZ 


;TYPE BASE ADDRESS 


-IS IT TU 
* BRANCH if NOT T 
-: TYPE ASCIZ STR 
-:GET OVER 


ING 


HE ASCIZ 


TYPE SLAVE NUMBER 


-IS IT RP_DUAL PORT 

sBRANCH IF NOT RP DUAL PORT 
-» TYPE ASCIZ STRING 

»:GET OVER THE ASCIZ 


;IS IT RO SINGLE PORT 
IF NOT RP 


BRANCH 


:; TYPE 


-IS IT RSO 
*BRANCH IF 


ASCIZ STRING 
T OVER THE ASCIZ 


y 
NOT _RSOY 


;; YPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;IS IT RSO3 
BRANCH IF NO 


T_RS 
>; YPE ASCIZ STR 
EA 


;;GET OVER TH 


;PROGRAM ERROR 


I 
: 


03 
NG 
CIz 


>: TYPE ASCIZ STRING 
2$ -:GET OVER THE ASCIZ 
(15><12>/AT UNIT NUMBER 


FUNITN(R2),-(SP) 


; TYPE UNIT NUMBER 


>; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


—— — I et —_—-= 
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UNIT UNDER TEST 


3651 --65$: .ASCIZ / VECTOR / 
3652 011324 4g: 
36 3 011324 Oo bee 005416 MOV FVECTR(R2),-(SP) ;TYPE VECTOR 
4 Oli 1044 TYPOC 

SEee THEE BtScOn BD 0 NOV sauce eeT BASE OCATION 

2 ee ee ee 

25 Bt t3e8 aaa ooo002 ADD a2 RS : INCREMENT ey 2 
3660 011354 5303 DEC Re “COUNT DOWN 
3661 11356 001373 BNE ? ‘BRANCH IF 20 NOT DONE 
3663 011360 016237 005376 005010 MOV FUNITN(R2),UNIT ;UNIT NUMBER 
3664 011366 016237 005416 o0SS12 MOV FVECTR(Re) , VECTOR iVECTOR 
3665 011374 016237 OOS446 OO46ED MOV FSLAVE(R2), SLAVE ;SLAVE N 
3666 011402 016237 O054S6 O04640 MOV FORIVR(R2) , COMND: ‘DRIVER ADDRESS 
3667 O11410 016237 OCS466 004130 MOV FBAE (Re), RHBAE ADDRE 
3668 011416 016237 005476 004132 MOV FCS3(R2),RHCS3 CS3 ADDRESS 
3670 011424 005037 045100 CLR PRITEM 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 « KEKLKREESRE LEE ERLE EELS LRA ERE E ERLE LEE RA LS HRA LARS EAA R RA ERA ESR ELE RE 
3681 TEST 3 BIT BANG RHCS1 
sP85 x TEST LOADING AND READING OF ALL POSSIBLE BITS 
3684 : x IN RHCS1 REGISTER. 
3685 : USE A PATTERN OF WALKING 1°S (1,2,4,10 ETC) 
3686 * i BND HAL KING nee ati 
3687 : EST $ ITR InCPETDVASBITI2¢BIT1O!ROY!GO BITS WILL NOT BE WRITTEN INTO 
3688 : AN ROY!DVA BITS WILL ALWAYS BE SE 
3689 : # AND BI O BITS WILL ALWAYS BE RED 

690 : i F SWITC : OR 3 g RE SET "FoR Dee DEBUGGING 

691 t HEN A RH CLEAR (RHCSe BI 
3692 + i GIVEN TO AID SCOPE SYNCS ON THE atEAR 
ee cdo 
3695 “Spgs pment te a fata ai cots eaten 
3696 011430 oo0004 +873: SCOPE 
3697 011432 012706 001000 OV eSTACK. SP :RESET STACK 
3638 011436 012737 O000003 oo4Ess MOV #3, J8TSTNM ‘SAVE TEST NUMBER 

700 011444 004737 040322 JSR PC, J#CLDISK :GIVE RH INITIALIZE 
3701 -SETUP UNIT NUBER 
370¢ ‘CLEAR RHWC AND FUNCTION BITS IN RHCS! 
‘fA 0114SO 012737 176201 oo4eSD MOV aSC! TRE!MCPE'DVA!BIT12!BIT1O!RDY!GO, WRTBIT :SC!TRE!MCPE!DVA!SITI2!B 
3705 O114S& 012737 oO4200 oD4ES2 MOV wROY!DVA,SETBIT ;RDY!DVA ARE BITS ALWAYS SET 


3706 O11464 012737 O02000 OO04ES4 MOV wBIT1G,CLRBIT ;BITIO ARE BITS ALWAYS CLEARED 


- — ee — ore -- —-— - 


a 
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DERHAC.P11 3 BIT BANG RHCS! 
3706 
‘FLOAT 1°S THRU THE RHCSI REGISTER 
709 011472 012737 6 001110 MOV ws ¢ PPERR off 35 ON ERROR ADDRESS 
7\ Bt ee6 iia erniny NOV aT Re BET TIN NG READY TO FLOAT A ONE 
3st o11810 Ee 6201 001124 = ate rad fBeitcee oval gtd {Tio#RoY2¢0 SGDDAT LEAR BITS NOT WRITTEN 
713 O11516 B355 7 O41400 OO1140 2s: Bit #BIT14!BITS!BITS, me Sa 13 OR 9 OR 8 ist : 
3714 011524 001403 BEQ 3$ a we aay r T 
371 011526 052777 ooo040 172334 BIS #CLR, IRHCS2 GIVE St CLEAR N Oeguee 0 
3717 011534 013777 001124 172316 33%: MOV DAT, ‘WRITE R 1 R | 
3718 1154 oi 23 Aesle Gat ize MOV : HCS eh fat :RER D fs REE tere | 
719 O15 3737 004654 001124 BIC LRBIT. $GDDAT BR ALHIAYS I PARED BITS | 
3720 O115S6 053737 O046S2 001124 BIS SETBIT, $GDDAT Sey ALWAYS SET BITS | 
3781 11564 3737 001124 OOlle6 mp : DDAT; SBDDAT T | 
? 11572 661404 EQ ‘BRANCH IF GOOD ! 
3723 011574 013737 OO4060 001122 MOV RHCSI, SBDADR §:GET REGISTER ADDRESS ! 
724 O11602 104137 ERROR 137 NE WAS BEING FLOATED | 
725 ; THRU _RHCS1 REGISTER | 
3726 -ON READING RHCS1 BACK : 
$787 iT hs Bete CONTAIN WHAT | 
ra file Soeee * OF og Paka 
L L 
$731 011610 103335 BCC 1$ ‘BRANCH IF 16 NOT DONE 
/ 
3733 :FLOAT A ZERO THRU RHCS1 REGISTER. 
3735 011612 012737 011636 001110 MOV #6$ $LPERR -SET LOOP BACK POINT. _ 
3736 11620 012705 177776 MOV #177776 GET READY 19 FLOAT p ZERO 
305 tIESO vate eet 1124 ne are 1M val STTISTBTT T OR vt 5 8c AL CLEAR SITS NOT WRITTEN 
, TW 
$33 Btiese pseeae Aaraoh POLES cs. BS cite ratte Se aes oe 13 e ag oft 
3740 011644 001403 BEQ SET 
a7 011646 012777 oo0040 172214 MOV cL, JRHCS2 . ee "£0 SCOPE Fat DT 
3743 011654 013777 001124 172176 7%: MOV SGDDAT,JRHCS!  ;WRITE into Br We. 
3744 O11662 017737 172172 001126 MOV gRHC cS, $8000 REA HCS1 
3745 011670 053737 GO46SS 001124 BIS GODAT :SET BITS ALWAYS SET 
ra Gum Govan S| RCSLT, | HGEm mS al 
74 Bt 1503 S574 4 APO i iT NCH IF GOOD 
3749 011714 013737 oOO4060 001122 MOV RHCS1,$BDADR § ;GET REGISTER ADDRESS 
3750 011722 104137 ERROR 137 :ZERO WAS BEING FLOATED 
3751 ; THRU _RHCS1 RECISTER | 
75 ‘ON READING IT BACK IT 
3753 ‘DID NOT CONTAIN WHAT 
3734 -WAS EXPECTED 
3756 011724 o00z61 8S: SEC 
3757 011726 006105 ROL RS 
3758 011730 103726 acs S$ 
3759 
3760 
37t : ee ee mee Re cee ee ee en eee 
375 -KTES BIT BANG RHCS2 


U6 
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OFANRE PEE nes BET Abn E ane 
3763 
3764 : TEST LOADING “AND READING OF ALL POSSIBLE BITS 
765 . IN RACE Oe TER. 
76 : i USE A PATT M . WALKING 1°S (1,2,4,10 ETC) 
76 : AND WALK Ss -3,-5 ET 
3768 i IN. THIS, TEST 177740" Bits, WILL NOT BE WRITTEN INTO 
770 : # Tr ci TCH Rg Fe T FOR DEBUGGING : 
acct : tek cr “Te ore AF BIT #5) WILL B | 
377 : GIVEN TO AID SCOPE SYNCS ON THE CLEAR : 
ae - GNAL . 
775 55 SERS HEARSE SESE HEHEHE AE SEE HEE EE SE HEE HEHE EE HEHEHE HEHE HEHEHE EAHA EEA E EEE EE | 
3776 011732 ooo004 tST4: SCOPE | 
777 (011734 12706 01000 MOV ¥STACK SP RESET TACK | 
3078 11740 012737 000004 oo46SE MOV #4, JaTSTNM -SAVE TEST NUMBER ) 
3780 011746 004737 040322 JSR PC, JHCLDISK «GIVE RH INITIALIZE | 
3781 :SETUP UNIT NUBER | 
378e *CLEAR RHWC AND FUNCTION BITS IN RHCS1 | 
3784 011752 012737 177740 oO4Eso MOV #177740, WRTBIT ;177740 ARE BITS NOT WRITTEN INTO | 
3785 011760 012737 900100 oo4éSs2 MOV #IR,SETBIT ‘IR ARE BITS ALWAYS SET | 
378 “FLOAT 1°S THRU THE RHCS2 REGISTER 
3788 011766 012737 012012 001110 fov Te ‘SETTING Ren ie ram Fe 
33 Bt 000 iter BB Tt 4 1S: MOV SGDDAT ee os TH DATA 
379i 012004 042737 177740 001124 BIC Peart SGDDAT ‘CLEAR BITS, NOT WRITTEN I 
3738 01201 0327 7 O41400 001140 2S: BIT wBIT14! BITS! BITS, Bu jRE Si HES M4 OR . "Oe 8 SET 
79 2 1403 BE NCH IF aay” ON 
a734 012022 052777 oOOD040 172040 BIS #CLR, JRHCS2 iGIVE C CLEAR R FOR SCOPE 
3796 012030 013777 001124 172032 3%: MOV SGDDAT,IRHCS2 WRITE Buea REGISTER 
3797 012036 017737 172026 O01126 MOV JRHCS2, $BDDAT pt D RHCS2 REGISTER 
3798 012044 053737 Oo46S2 001124 BIS ETBIT. $GDDAT T ALWAYS SET BITS | 
793 012052 0e3/ 7? 001124 O01126 CMP SCODAT, SBDDAT 37 | 
8 1206 1404 BEQ i! NCH IF GOOD 
3801 012062 013737 oOO04070 001122 MOV RHCS2, SBDADR § ;GET REGISTER ADDRESS | 
802 012070 104137 ERROR 137 ; ONE WAS BEING FL ATED | 
80 ‘THRU RHCS2 REGISTER ! 
3804 : ON ING RHCS2 BACK 
3805 -IT DID D NOT. CONTAIN WHAT 
‘WAS EXPECT | 
3807 012072 oD0e41 ug: CLC :CLEAR CARRY | 
3808 012074 006305 ASL RS -GET 1 ONE LEFT | 
3809 612076 103340 Bcc 1$ ‘BRANCH IF ie NOT DONE 
3811 :FLOAT A ZERO THRU RHCS2 REGISTER. 
3813 912100 012737 12124 001110 NOV #6S, SLPERR -SET LOOP PACK POINT. ‘ 
Bie Btst4 10537 001124 cS: MOV fe SGOBAT Gel READY 1 ARTE B DA F 
3816 Ol2:16 042737 177740 001124 BIC teat $GDDAT ;CLEAR BITS NOT WRITTEN INTO 
3817 ieles 032737 O41400 OO114O ES: BIT veITIMI6ITS:aITa SUR ‘ARE SWITCHES 14 OR 4 OR 8 SET 
3818 Ol2132 OoO1403 BEG 75 ANCH IF ANY OF THE ABOVE SET 


PARC a tt CeRHAE LR 


012134 
012142 


Oleele 
lee14 
le2ee0 


012226 


012777 


04 
13737 
104137 


00026 
00610 
103740 


000004 
12706 
12737 


004737 


BIT BANE RAES2 


000040 


001124 
004070 


177660 
000000 
001660 


12300 
00001 
001124 
77660 
41400 


000040 


171726 
171720 
‘ +183 
lle4 
001126 
001122 


004656 


004650 
0046Se 
004654 


001110 
001124 


001140 
171552 
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7$: 


MK EK Die i iE Dic ic oe oe Oe oc me 


té1s: 


1$: 
es: 


#CLR, JRHCS2 
$GODAT , JRHCS2 


aCe: SERA 


SGDDAT , SBDDAT 


RHCS2, SBDADR 
137 


RS 
5$ 


BIT BA 


etn FOR N GeeU PE AID TO 
AXA. 


e Oat Ts ALWAYS SET 


DRI Te Into 


: BRANCH 


F GOOD 
‘GET REGISTER ADDRESS 
;ZERO WAS BEING FLOATED 
; GISTER 
BACK IT 
;DID NOT CONTAIN WHAT 


: y Se 
;ON READING 


sWAS EX 


PECTED 


+ ELE RER LEER ERLE KELLER ERLE AERA RAR A EARLY RELA KEELE LEA EELS 
ST S NG RHCS3 


TEST LOADING AND READING C* ALL POSSIBLE BITS 
IN RHCS3_ REGISTER. 


USE A me 
AND_WAL 


WALK ie 1’ (1,2,4,10 ETC) 


SE 
IN THIS TEST ttt BItS WILL NOT BE WRITTEN INTO 
AND O BITS WILL ALWAYS T 
AND BITS!BITBIBIT7!BITS'BITY BITS WILL ALWAYS BE CLEARED 
14 OR 8 ARE SET FOR DEBUGGING 
THEN A RH CLEAR (RHCSe BIT #5) WILL BE 
GIVEN TO AID SCOPE SYNCS ON THE CLEAR 


IF SWITCH 


SIGNAL. 


" V 
MOV 
JSR 


MOV 


MOV #0, SETBIT 
MOV eBITS! Bi Tai B1T7!B1TS! 
‘FLOAT 1°S THRU THE RHCS3 REGISTER 

#2$, $L 


Mov 


#STACK, SP 
so ga TSTNM 


PC, ad#CLDISK 


#177660 WRIBIT 


PERR 


5,$0 OAT «STAR 
‘it, 660,$GDDAT ;CLEAR : 
#BITL4!B T9!BITS, SWR 


3$ 
#CLR, JRHCSe 


ge UP UNIT NUBER 
LEAR RHWC AND FUNCTION BITS IN RHCS1 


‘SAVE. TACK 
TEST NUMBER 


seive te aM? 


a ee ee ee ee 
COPE 


74 ARE atid, NOT WRITTEN INTO 


;SET LOO 


SYNC IF IN 


0 ARE BITS ALWA 
BIT4, CLRBIT 


}BITS!B178!BIT7!B1TS!BIT4 ARE BITS ALWAY 
ON ERROR RODRESS 
sGETTING a he TO FLOAT A ONE 
RT WITH DATA 

ts NOT WRITTEN INTO 
AR SWITCHES 


F_ ANY ON 
GIVE CLEAR FOR SCOP 


14 OR 9 OR § SET 
SET 


N DEBUG: 


_ ——— —- «- - - 


-@e - le ee il ly li, i et i le, le i ell, Ail Alla lll, i 


——s = =. ——— + — @ + 


DEAMRE.PIL TS 


ob be 


Cu co NOU 


Soa RNTS 


012316 


012364 


012366 
012370 
012372 


013737 
104137 


000241 
006305 
103335 


012737 


NO6 
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001124 171606 38: MOV $GDDAT,ORHCS3  ;WRITE RHCS3 RE REGIST ER 
171602 001126 MOV JRHCS3, $BD0A jRE BD RHCS 3 REG 
004654 001124 BIC CLRBIT, SGDDAT ;C WAYS CLEARED BITS 
004652 001124 BI ETBIT $008 ¢ ; MOLUAYS SET BITS 
001124 O01126 CM cD T SBDDAT T 
BEQ ‘BRANCH IF GOOD 
004132 001122 MOV RHCS3,$BDADR § ;GET REGISTER ADDRESS 
ERROR 137 j ONE Was BEING FLOATED 
‘THRU RHCS3 REGISTER 
jn READING RHCS3 BAC 
-IT DID. NOT T CONTAIN WHAT 
: : WAS 
us: CLC CLEA MT RRY 
ASL RS -GET 1 ONE LEFT 
BCC 1$ ‘BRANCH IF 1& NOT DONE 
‘FLOAT A ZERO THRU RHCS3 REGISTER. 
i a tee 
01124 cs: MOV Re $6 OBA igET READY TO FLOBT p 2 
177660 001124 BIC RD 7Ee $GDDAT ;CLEAR BITS NOT SRITTEN INTO 
041400 OO114O 6S: BIT sBITINIGITS#BI TB Sk Si ine SWITCHES 14 OR 9 OR 8 SET 
BEQ F ANY OF THE ABOVE SET 
o00040 171432 MOV #CLR, JRHCS2 LEB OR SCOPE A ID TO 
001124 171466 7%: MOV SGDDAT,IRHCS3  ;WRITE INTO RH’XA. 
171462 001126 MOV DRHCS3,$BDDAT  ;READ RHCS3 
0046S? 001124 BIS SETBIT.$GDDAT ;SET BITS ALWAYS SET 
004654 001124 BIC CLRBIT, $GDDAT -CLEAR BITS ALWAYS O 
001124 001126 CNP SGDDAT , SBDDAT if 
004132 001122 MOV RHCS3, SBDADR eet PREG TSTER A ADDRESS 
ERROR 137 -ZERO WAS BEING FLOATED 
‘THRU RHCS3 REGISTER 
-ON READING IT BACK IT 
‘DID NOT CONTAIN WHAT 
“WAS EXPECTED 
8S: SEC 
7 RS 
Bcs S$ 


BIT 


2 8 8 8 8 8 a 


IN 
re, A PATTERN 


al IN THIS fest A airs’ 
Koa'e 





Bee" 





il 


Hg Yd Fay gn gps 


GIVEN TO A 


RAGA A RGA EE ERE AREER EAE EERE KEELE ALES EERE ES 
ST 6 BANG RHWC 


TEST LP gg Ra READING OF ALL POSSIBLE BITS 


om (1,2,4,10 ETC) 


-§ 
Lor = WRITTEN INTO 


-; 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 79 





DERHAC.P11 Tb BIT BANG RHWC 

aaah : % SIGNAL. 

33933 +s FERRE RE RERS RESELLER ERLE EERE HERS E REESE ESE REE LER ERE RE RRE KE REESE 

33 012514 0004 tSté: sco 

g 12706 001000 MOV HSTACK, SP sRESET STACK 

3338 012522 012737 OOO0006 oo4esE MOV a6, J#TSTNM ‘SAVE TEST NUMBER 

3332 012530 004737 040322 JSR PC, J#CLDISK -GIVE RH INITIALIZE 

3939 ‘SETUP UNIT NUBER 

3340 *CLEAR RHWC AND FUNCTION BITS IN RHCS1 
3942 012534 012737 oO0000 oD4ESO MOV #0, WRTBIT :0 ARE BITS NOT WRITTEN INTO 

3343 012542 012737 o00000 oD4ESe MOV #0, SETBIT -0 ARE BITS ALWAYS SET 

394S ‘FLOAT 1°S THRU THE RHWC REGISTER 

3946 012550 012737 012574 001110 hov 82S, $LPERR :SET LOOP ON ERROR ADDRESS 

3947 012556 012705 000001 MOV #1,RS :GETTING READY TO FLOAT A ONE 
3948 012562 010537 001124 1S: MOV RS, $GD0AT ‘START WITH DATA 

3949 012566 042737 O00000 001124 BIC SGDDAT : CLEAR BITS NOT WRITTEN INTO 

3950 012574 032737 O41400 OO1140 2S: BIT satti4!BIT9!B1T8° SWR :ARE SWITCHES 14 OR 9 OR 8 SET 
3951 Ol2602 001403 BEQ 3$ ‘BRANCH IF ANY ONE SET 

3356 012604 052777 oooo4o 171256 BIS #CLR, IRHCS2 GIVE CLEAR FOR SCOPE 

3954 012612 013777 001124 171242 3%: MOV SGDDAT. JRHWC © SWRITE RHWC REGISTER 

3955 012620 017737 171236 001126 MOV JRHWC,$BDDAT  § ;READ RHWC REGISTER 

3956 Ol2626 053737 oo46Se 001124 BIS SETBIT,S$GDDAT  :SET ALWAYS SET BITS 

3957 012634 023737 OO1124 O01126 CMP SCODAT, SBDDAT ; TEST 

3958 Ole642 O01404 BEQ -BRANCH IF GOOD 

32959 012644 013737 oo4ob2 001122 MOV RFC, SBDADR ‘GET REGISTER ADDRESS 

3960 012652 104137 ERROR 137 ‘ONE WAS BEING FLOATFD 

3961 | THRU RHWC REGISTER 

3962 s0N ING 

3963 -IT DID NOT CONTAIN AMAT 

3964 -WA CTED 

3965 012654 000241 4S: CLC ‘CLEAR CARRY 

3966 012656 006305 ASL RS -GET 1 ONE LEFT 

3367 012680 103340 BCC 1$ ‘BRANCH IF 16 NOT DONE 

3363 -FLOAT A ZERO THRU RHWC REGISTER. 

3971 Ol2662 012737 012706 001110 MOV #6$ $LPERR -SET LOOP BACK POINT. 

3972 012670 012705 177776 MOV Hl yee, -GET READY TO FLOAT A ZERO 

3972 012674 010537 001124 cs: MOV $GOD Bare ;GET READY TO WRITE DATA 

3974 012700 042737 OO00G0 001124 BIC SGDDAT ‘CLEAR BITS NOT WRITTEN INTO 

3975 012706 032737 O41400 OO1140 6&3: BIT tO) SCODRT re SWR :ARE SWITCHES 14 OR 9 OR 8 SET 
3976 012714 001403 BEQ 7§ ‘BRANCH IF ANY OF THE ABOVE SET 
3377 612716 b12779 000040 171144 MOV #CLR, JRHCS2 LEA FOR. “bene TO 

3979 012724 013777 001124 171130 73%: MOV SGDDAT, JRHWC ; WRITE INTO RH’ XA. 

3980 012732 017737 171124 001126 MOV JRHWC, $BDDAT AD RHWC 

3981 012740 053737 Oo46S2 001124 BIS SETBIT, $GDDAT CET BITS ALWAYS SET 

3982 012746 023737 001124 001126 CMP SGDDAT,$BDDAT  ;TEST 

3983 012754 0601404 BEQ 83 ‘BRANCH IF GOOD 

3984 012756 013737 oOO4Ob2 001122 MOV RHWC , SBDADR -GET REGISTER ADDRESS 

3985 012764 104137 ERROR 137 ;ZER QO WAS BEING FLOATED 


3986 ; THRU RHWC REGISTER 


——— <= oe ~- -—-- 


—-—_—— ——— Sa i 


MAIN 
DERHA 


012766 
012770 
Ole77e 


012774 
012776 
013002 


013010 


G+ pt poe bt BS Be BO foe poe Pee 


i Raita he 


T6 


000261 
006105 
103740 


000004 
012706 
012737 


004737 


104137 


MACY11 27(732) 
BIT BANG RHWC 


001000 
000007 


040322 


000000 
000000 
000001 


013062 


041400 


000040 
001124 


001124 
004064 


004656 


004650 
004652 
004654 


001110 


001124 
001140 
170770 


170756 
6 


001126 
O01iee 


os 
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le ee me. 


+617 


1$: 
eS: 


33: 


;ON READING IT BACK IT 


:DID NOT CONTAIN WHAT 
:WAS EXPECTED 

SEC 

ROL RS 

BCS S$ 


aes. At ton bee ee ee 


BIT BANG RHBA 


TEST LOADING AND READING OF ALL POSSIBLE BITS 
USE A PATTERN OF WALKING 1’S (1,2,4,10 ETC) 
AND WALKING 0’S -3,-5 £ 

IN THIS TEST 0 0 BITS. HILL NOT BE WRITTEN INTO 
AND BITOO Oats WIL Witte Ar WAYS BE CLEARED 

IF SWITCH 14 OR 9 OR & ARE SET FOR DEBUGGING 
THEN A RH ALEAR (RHCS2 BIT #S) WILL BE 

GIVEN TO AID SCOPE SYNCS ON THE CLEAR 


‘Og Rgmseagee erp 


"STACK, SP -RESET STACK 
MOV 87, J¥TSTNM ‘SAVE TEST NUMBER 


JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
‘SETUP UNIT NUBER 
‘CLEAR RHWC AND FUNCTION BITS IN RHCS1 


MOV 40, ered ;0 ARE atte NOT WRITTEN INTO 
MOV 0, SETBIT ;0 ARE BITS ALWAYS SET 
MOV #BITOO,;CLRBIT ;BITOO ARE BITS ALWAYS CLEARED 


-FLOAT 1°S THRU THE RHBA REGISTER 
MOV #23, SLPERR ;SET LOOP ON ERROR ADDRESS 


MOV #1,R5 TTING READY TO FLOAT A ONE 
MOV RE’ SGDDAT ig ORT WI 
BIC #0; $GDDAT ‘CLEAR BITS NOT WRITTEN INTO 
BIT satTi4!BITS!BITS" SWR ;ARE SWITCHES 14 OR 9 OR 8 SET 
BEQ 3$ ‘BRANCH IF ANY ONE SET 
BIS #CLR, IRHCS2 GIVE CLEAR FOR SCOPE 
; SY NC IF IN DEBUG: 
MOV $GDDAT, IRHBA i WR ire ator REGISTER 


MOV JRHBA, $BDDAT 
BIC LRBIT, $20087 ars “ALAS. “Glen D BITS 


ALWAYS 
CMP SGDDAT, SBDDAT 
BEQ 4$ ‘BRAN NCH H IF GOOD 
MOV RHBA, SBDADR ‘GET REGISTER ADDRESS 
ERROR 137 ;ONE WAS BEING FLOATED 
THRU RHBA REGISTER 
;ON READING RHBA BACK 


MAINDEC-11-DERHAC-A 
DERHAC.P11 17 


013270 
O1327e 
013274 


013276 
13300 
13304 


0i33le 


000241 
006305 
103335 


Biss ae 


o1a777 


13777 


104137 


00026 1 
906105 
103735 


000004 
12706 
12737 


004737 


MACY11 27(732) 
BIT BANG RHBA 


013202 
177776 
001124 
000000 
041400 


000040 
001124 
0832 
0046S2 
004654 
001124 


004064 


BRanoR 
00010 
C4032e 


001110 
001124 
001140 
170650 

pve 

Olleb 
001124 
001124 
001126 


001122 


004656 


DO? 
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;11T DID NOT CONTAIN WHAT 
XPECTED 


WA 
4$: CLC ‘CLEA 
ASL RS ;GET 1 ONE LEFT 
BCC 1$ BRANCH IF 16 NOT DONE 


;FLOAT A ZERO THRU RHBA REGISTER. 
MOV #6$ oer ene 


-SET LOOP BACK POINT. 

MOV #177776 “GET READY TO FLOAT A ZERO 
cs: MOV Re SGOBAT GET R READY TO WRITE DAT 
BIC BITS NOT WRITTEN 


#0; SGDDAT ‘CLE N INTO 
sgl TAN{GITSGIT8, Su Re SWITCHES 14 OR 9 OR 8 SET 
°s ere BNY Seal THE | ECV E SET 
MOV #CLR, JRHCS2 fs "rok 
7g: M DDAT iW fe. iyo aa XA. 

nov SRiBe $808" BIE, 

SGODAT SET Bite ALWAYS SET 

Bic CLRETT "elt .sG ‘CLEAR BITS ALWAYS O 
CHP SGOOAT, SBDDAT gu 


RANCH IF GOOD 
MOV RHBA, SBDADR ;GET REGISTER ADDRESS 
ERROR 137 ;ZERO WAS BEING FLOATED 


6$: BIT 


;ON REA 
DID NOT Kern WHAT 
;WAS EXPECTED 


9g: SEC 
ROL RS 
Bcs c$ 

: ae ee ae dee ee ee 

SATEST 1 BIT BANG RHBAE 

 % TEST LOADING AND READING OF ALL POSSIBLE BITS 

+ IN es 

: USE A PATTERN 0 WALKING 1'S (1,2,4,10 ETC) 

: % AND WALKING 0°S (-2,- 

: IN THIS TEST 177700" ‘Bits WILL NOT BE WRITTEN INTO 

- AND O BITS WILL ALWAYS 

: AND 177700, BITS WILL ALUAYS BE CLEARED 

: IF SWITCH 14 OR 9 OR 8 ARE SET FOR DEBUGGING 

: THEN A RH ar EAR (RHCS2 BIT #5) WILL B 

i GIVEN | TO AID SCOPE SYNCS ON THE CLEAR 


° 7 gay oo? yresgpet carapace: Aommaaagmne: * Heter nen; 


+éT10: SCOPE 
ty wSTACK, SP sRESET STACK 
MOV #10, a8TSTNM -SAVE TEST NUMBER 


JSR PC, aaCLDISK ;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 


DERHAESPLT fig 


ibe 
013332 


OI 


UMM Une ee 
- 7 Eo 


wu 


Wit) 
Ue 
™w 


B15537 
012737 


012737 


13777 
17737 


404 
013737 
104137 


000261 
096105 


BIT BANE RHBRE 


06680 
177700 
013364 


041400 
000040 


7b 14 


004130 


1776 


000040 
170304 
CO46S2 
04654 
Oile4 
004130 


biueee 
004654 
001110 
001124 


001140 
170466 


001186 


O01 lee 


001110 
001124 
001140 
170346 
7040 


001126 
001122 
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4$: 


S$: 
6$: 


73: 


MOV 


uh? 700 WRTETT 


MOV #177700, CLRBIT 


1a al | 36 TORY abe ene B GI Re 


;CLEAR RHWC AND FUNCTION BITS IN RHCS1 
AA pp. RE Br aye nat pel ten INTO 
: 177700 ARE BITS BLiIAYS CLEARED 


ON ERROR ADDRESS 


TTING READY TO FLOAT A ONE 
oar WITH BATA 
‘CLEAR BITS NOT A URITTEN 


N INTO 
WBITIY!BITS!BITS,SWR :ARE SWITCHES 14 OR 9 OR @ SET 


et IF ANY ONE SET 
IVE CLEAR FOR SCOP 
F IN DEBUG: 
+R TE RHBAE R TER 
by ay ty a 0 BITS 
L 
a “ALUYS até, 


ie Be th PFE 


REGISTE 
tf Reet yea BACK 
DID_N “ge IN WHAT 
;WAS EXP 
CARRY 


: CLEAR 
;GET 1 ONE LEFT 
;BRANCH IF 16 NOT DONE 


‘4 OOP BACK POINT. 
READY 10 FLOAT A ZERO 

READY TO WRITE DATA 

rare 8 NOT WRITTEN INTO __ 

yifPe HITCHES 14 OR 9 OR @ SET 


iF BA oF i soove Set 
pty, E ok Nhe ope 


‘ART Te. INTO RH XA. 

READ RHBA 

SET BITS ALWAYS SET 
i SLEOR BITS ALWAYS O 


;BRANCH IF G 
ie means ER ADDRESS 


T 
pxR na CONTAIN WHAT 
XPECTED 


ho 

MOV Hl, : 

MOV SGDDAT 

BIC ape scitt $GDDAT 
BIT 

BEQ 

BIS ¥CLR, JRHCS2 
MOV RH 
NOY SBHBAE’ SBDBAt 
BIC SRETT’ Bet 
Rh stobat; $6 
BEQ 

MOV an AE, SBDADR 
ERROR 13 

cL 

ASL RS 

Bcc 1§ 

:FLOAT A ZERO THRU RHBAE REGISTER. 
MOV #6 PERR 
MOV a1 7P776,R 

MOV 

BIC tba GOOR $GO0AT 
BIT saIT14'6 etre ~ 
MOV aL, JRHCS2 
MOV GDDAT, 

roy RHEE BD 
BIS 

BIC CLRBIT ebAT 

CHP SGODAT , SBDDAT 
MOV RHBAE , SBDADR 
ERROR 137 

SEC 

ROL RC 


- _—-_- ——_— ——— —<« - 


MBINDEC-11-DERHAC-A 
DERHAC. P11 T10 


4135 
LSE 


0i3576 103735 


013654 


013654 


013669 


000004 
012706 
012737 


004737 


068737 
Agee ae 7 


001401 
104006 


005077 


LO441i 


Y 


to -z 
> a) 
o> 
(De- 
DD 


001000 
000011 


040322 


p08010 


702 : 
O11 


i7022e2 


N 


Goru 
w-~ 


7(732) 


HBAE 


OO4ESE 


FO? 
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oe ee ee me 


es ee @e @e@we@ee ee @te ee ae we @e @e ae 


S$ 


ifccp il” 1.0 TET 1 (LON LO AT) 


SILO TEST 1 (ONE WORD WRITE) 
' AFTER a . sores 18 GIVEN (SET BIT #5 IN RHCS2) 
wah O HAVE “IR” (BIT #6) HIGH 
WITH NIT N 


UMB 
re oe OF ALL FEROS IS WRITTEN INTO RHDB 


OR" (BIT #7) IS WAITED FOR BY_A TRAP INSTRUCTION 

NO TIMING IS DON 

“OR” “ls REPORT NOT SET WITHIN “WAT” COUNT 
REPORT 


gents TO CONTAIN ZEROS 
RCE. aI “BE, CHE QO HAVE “IR” AND UNIT NUMBER 
roRobrate vn 3 ck RHBRE, "RHIC, WILL BE CHECKED TO HAVE 


{eevanFecaaiteesestidetaneessnueesesnueeeeanueeessnaeesesasats 


utes 


6S$: 


COPE 
ROV WSTACK, SP 


‘RESET STACK 
MOV #11,aaTSTNM -SAVE TEST NUMBER 
JSR PC, JHCLDISK :GIVE RH INITIALIZE 
‘SETUP UNIT 


:CLEAR RHWC AND FUNCTION BITS IN RHCS! 
;CHECK THAT RHCS2 HAS IR 


MOV #IR S608 -GET G = 100 
BIS UNIT, SGDDAT : FACLUD OUNI NUMBER 
MOV RHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP GDDAT;$BDDAT ;COMPARE EXPECTED 

ire Me DATA READ FROM 
BEQ 6S$ ‘BRANCH IF GOOD 
ERROR 6 


; AFTER SETTING - ¥ “ 
Se TO 


N 
+ AND HAVING Rone WD NOTHING ELSE 
sRSe SHOUL IR 


‘TOGETHER WITH Ho NUMBER 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RH HCS2 


«WRITE ONE WORD OF ALL ZEROS INTO RHODB 
éLR SRHOB ;WRITE O IN RHOB 


;WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 
WAT STRAP TO WAIT.T SUBROUTINE 


-* 
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MBINDEC- 1 Reemne 7 
DE Til SILO TEST 1 (ONE WORD WRITE) 


RHAC.P 11 


4211 013662 004070 RHCS2 ;AND WAIT FOR OR BIT IN 
4212 013664 900200 OR ‘RHCS2 REGISTER 

4213 -IF ERROR OCCURS HERE 
4214 -IT MEANS “OR” DID NOT 
4215 el OR THE FULL COUNT 
MIE rE WATT, T SUBROUT INE 
4217 Tag Le HS AP PROXTMA ety 
4218 R THAN SOO MILLISECONDS 
4220 

422] “CHECK THAT RHOB HAS 0 

ieee 013666 012737 oOO0000 9001124 hOV #0, SGDDAT -GET GOOD = 

4224 013674 017737 170202 001126 MOV JRHDB,SBDDAT  § ;READ RHDB FOR COMPARISON 
4225 013702 023737 OO112e4 001126 CMP SGDDAT,€30DAT  :COMPARE EXPECTED 

ieee :DATR WITH DATA READ FROM 
4928 013710 001401 BEQ 67 -BRANCH IF GOOD 

4229 013712 194007 ERROR 7 

4230 AFTER ati ARING T 

Heal ; BND - WRITING ALL Z Roe 
4233 THEN READING IT BACK 
1234 ; RHDB SHOULD HAVE O 

4536 BUT CONTAINED WHAT IS 
4237 -GIVEN IN BAD RHDB 

4°38 013714 673: 

4539 “CHECK THAT RHCS2 HAS IR 

4240 013714 012737 O00100 001124 MOV #IR, $GDDAT -GET GOOD = 100 

Hou 013722 053737 OOS010 O01104 BIS UNIT. SGDDAT ‘INCLUDE UNIT NUMBER 

yoy ? 7737 «170134 MOV cSe OMPARISON 
dS4a Biases 845595 Aad BBLS Moe «= MEHERG-SERRAT ©: EBNPaRE Bapec Te 

4Dys ar A WITH DATA READ FROM 
4OuE, : RHCS2 

447 013744 001401 BEQ 69$ :BRANCH IF GOOD 

uous 013746 ID40I0 ERROR 10 

4ou4g :AFTER CLEARING THE R 

4250 8 WRITING ALL CEROS 
45] - INTO RHD 

4252 :THEN READING IT SACK 

4253 ; RHC SHOULD HAVE IR 

4o54 3=10 

4yoss S TOGETHER WITH UNIT NUMBER 
4ocE ‘BUT CONTAINED WHAT IS 
4257 :GIVEN IN BAD RHCS2 

4258 013750 69S: 

4259 ‘CHECK THAT RHCS1 HAS DVA!RDY 

1860 013750 012737 oo4200 001124 Mov wDVA!RDY,SGODAT ;GET GOOD = 4200 

sees ldves Seas GNSS GSE || RERGRY-SERRAT «Reco ee Gos 
s2c8 et aT BATATREAD FROM 
ueEE 013772 OD14D1 BEG 713 + BRORCH IF Goce 










oe 


4267 
g 


C-11 
Pil 


013774 


013776 
013776 
014004 
014012 


14020 
14022 


014024 
014024 


B14b%6 


014046 
014050 


014052 
614052 
014060 
014066 


014074 
014976 


we 


C4011 


012737 


017737 
023737 


012737 
25°37 


00140i 
104013 


012737 
017737 
023737 


001401 
104014 
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Sito 4 


001124 


001126 
001126 


ooo000 


170lee 
001124 


000000 
700 8 
bot; 


001124 


001186 


000000 901124 


170044 001126 
0011e4% O0lle6 


733: 


753: 


ERROR 


ov 


CMP 


MOV 


MOV 
CMP 


BEG 
ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


It 


; CHECK a "scpoRT HAS 0 


srs, SBODAT 
SGDDAT , SBDDAT 


fs 


sCHECK THAT RHBA_HAS CO 


#0, SGDDAT 


acbBat SBObAT 


75$ 
13 


; CHECK a " scboAT HAS 0 


mere $BDDAT 
S$GDDAT, SBDDAT 


77$ 
14 


ARO HR BRETING ALL te 


- IN 0 RH 


; THEN READING IT BACK 
*RHCS1 SHOULD HAVE DVA!RDY 


yf Covregneo wer 1 


;GET GOOD = 0 


i COMPARE. EXP FOR COMPARISCN 
ac AiTA BATA READ FROM 


HCS3 
‘BRANCH IF GOOD 


sAFTER CLEARING THE RH 
; AND ho. ALL ZEROS 


eles UL HAVE, 0. 


T_ CONTAINED SUHAT IS 
‘GIVEN IN BAD RHCS3 


;GET GOOD = 


i NP RHBA ae —_— 
MPARE EXPE 
‘DATA WITH DATA READ FROM 


; RHB 
:BRANCH IF GOOD 


sAFTER CLEARING THE RH 
SAND WRITING ALL ZEROS 
INTO RHDB 

; THEN READING IT BACK 
; RHBA SHOULD HAVE 0 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


;GET GOOD = 


; READ se FOR COMPARISON 
: COMPARE EXPEC 
; DATA WITH DATA READ FROM 


t BRANCH IF GOOD 


sAFTER CLEARING THE RH 
SAND WRITING ALL ZEROS 


SRE ef 


014100 
014100 


014126 


014126 
014130 
014134 


014142 


012737 


025737 


01273 
004737 


012737 
053737 


MACY 1 


SILO 


OCO000 001124 


81134 BOri8e 


tS 


001000 


00001e 


040322 


32) 
(ONE WORD WRITE) 


OO4ESE 


- 
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TSS PEREING veo 


‘BUT CONTAINED WHAT IS 
GIVEN IN BAD RHBAE 


77%: 
‘CHECK THAT RHWC HAS O 
MOV #0, SGDDAT :GET GOOD = 
MOV RHWC,SBDDAT. ;READ RHWC FOR COMPARISON 
CMP SCObAtT SBDDAT REN BARE xpee 1B 
Pak WITH DATA READ FROM 
BEQ 79% :BRANCH IF GOOD 
ERROR 15 
;AFTER CLEARING THE RH 
WRITING ALL ZEROS 
INTO Reo READING IT BACK 
;RHWC SHOULD HAVE 0 
BUT CONTAINED WHAT IS 
a ‘GIVEN IN BAD RHWC 


SESSA LAKRERAHAAAESAALA SARE RSLS AALAARALARASSARARFRAAAAARELERALEESEFE 
t STEST 2 SILO TEST 2 (ONE WORD WRITE) 

H CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 
ue "CHECKED 10H HAVE “IR” (BIT #6) HIGH 


RD OF ALL ONES. IS WRITTEN INTO RHDB 


B 

= OR” (BIT #7) IS WAITED FOR BY A TRAP INSTRUCTION 

CALLED “WAT” (NO TIMING IS DONE) 

HOWEVER IF “OR® Bo we SET WITHIN “WAT” COUNT 

OWN AN Dr AS re 

HOB IS CHECKED TO CONTAIN ALL ONES 

RHCS2 WILL BE CHECKED TO HAVE “IR” AND UNIT NUMBER 

seaBnte uni ee ee »RHWC, WILL BE CHECKED TO HAVE 
[SAAAONGNSEMERAEAREEOHDeeEEMnnanaeneaeaEMETEeaaaeneaenana nes 


ae 
ty #STACK $P sRESET STACK 
MOV #12, 8TSTNM -SAVE TEST NUMBER 


JSR PC, a#CLDISK ;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 
: CLEAR Nuc AND FUNCTION SITS IN RHCS1 


ee ee ee ee 


a “ee sanees ee e@e@e we ese ee @e @2e ee 


“CHECK THAT RHCS2 HAS IR 
MOV #IR, SGDDAT :GET GOOD = 100 
BIS UNIT, $GDDAT ‘INCLUDE UNIT NUMBER 


MHINDEC-11-DERHAC-A 
DERHAC.F 11 


014162 
014170 


O14208 


014202 


014202 


014210 
Ri usiG 
14214 


014216 
014224 
014232 


014240 
014242 


014244 


014244 
014252 


014260 
014266 


Tle 


017737 
023737 


ate 
104O00E 


012777 


104411 
094070 
000200 


012737 
017737 
023737 


001401 
104007 


012737 
053737 


017737 
023737 


rh bees core 


SILO 


167702 001126 
001124 OOlleé 


177777 =16767e 


177777 


16765¢e 
001124 


000100 
005010 


167604 
001124 


001124 


001126 
001126 


001124 
001124 


001126 
001126 


JO? 
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T 2 (ONE WORD WRITE) 


65S: 


67$: 


JRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON 


SGDDAT, SBDDAT Sata uth BATA READ FROM 


HCS 
i BRANCH IF GOOD 
;AFTER SETTING ts Ay A 
; IN wth TO INIT THE RH 
:A ING pone HOTHING ELSE 
; RH so SHOUL 


;=100 
: TOGETHER WITH UNIT NUMBER 
By ead WHAT IS 
GIVEN IN RHCS2 


;WRITE ONE WORD OF ALL ONES INTO RHDB 


MOV 
CMP 


ERROR 6 


MOV #177777, dRHDB ;WRITE 1 IN RHOB 

;WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 

WAT ;TRAP TO WAIT. T SUBROUTINE 
RHCS2 : AND WALT FOR OR BIT IN 

OR *RHCSe REGISTE 


-IF ERROR OCCURS HERE 

;IT MEANS “OR™ DID NOT 
+ SET FOR THE FULL COUNT 
;DOWN OF THE Wart. T SUBROUTINE 
; THIS TIME IS APPROXIMATELY 
;LARGER THAN SOO MILLISECONCS 


“CHECK THAT RHDB HAS 177777 
HOV #177777, S$GDDAT ;GET GOOD = 0 


MOV JRHDB,SBDDAT  § ;READ RHDB FOR COMPARISON 
CMP SGDDAT,$BDDAT ;COMPARE EXPECTED 
:DATE WITH DATA READ FROM 
BEQ 67 :BRANCH IF GOOD 
ERROR 7? 
:AFTER CLEARING THE RH 
:A WRIT NG ALL ONES 
HEN FER READING IT BACK 
HOULD HAVE 177777 
at CONTA N D WHAT IS 
VEN IN RHDB 
‘CHECK THAT RHCS2 HAS IR 
Mov #IR, $GDDAT :GET GOOD = 100 
BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 
MOV ORHCS2,$BDDAT READ RHCS2 FOR COMPARISON 


; COMPAR 


$GDDAT , SBDDAT 
‘DATA ETH D DATA READ FROM 


CMP 


MAINDEC-11 
DERHAC.P11 


4435 


014274 
014276 


014300 
014300 
014306 
014314 


014322 
014324 


014326 
014326 
014334 
014342 


014350 
014352 


014354 
014354 


014362 
014370 


ta 


012737 
017737 
023737 


001401 
10401e 


012737 
017737 
023737 


001401 
104013 


012737 


017737 
023737 


er tees ote 


SILO 


000000 001124 


167620 001126 
OCiie4 O011e6 


000000 


167524 
001124 


000000 


167542 
001124 


001124 


001126 
001126 


001124 


001126 
001126 


09-SEP-7 
T 2 (ONE WORD WR 


6953: 


71$: 


733: 


BEQ 


ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV 


MOV 


MOV 
CMP 


p 07:55 PAGE 88 
TE) 


69$ 
10 


sCHECK THAT RHCS3 HAS 0 
#0, SGDDAT 


JRHCS3, SBDDAT 
SGDDAT , $BDDAT 


71$ 
le 


;CHECK THAT RHBA HAS 0 
#0, SGDDAT 


JRHBA, SBDDAT 
SGDDAT, SBDDAT 


73$ 
13 


s CHECK e RH ae HAS 0 


0, $GD 


JRHBAE , SBODAT 
SGDDAT, $BDDAT 


»RHCS2 
‘BRANCH IF GOOD 


;AFTER CLEARING THE RH 
6G WRITING ALL ONES 


; THEN READING IT BACK 
RES SHOULD HAVE IR 


=100 

TOGETHER WITH UNIT NUMBER 
;BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


;GET GOOD = 


s READ RHCS3 FOR COMPARISON 
; COMPARE EXPECTED 
; DATA WITH DATA READ FROM 





+ BRANCH IF GOOD 


sAFTER CLEARING THE RH 
5 AND gE Nias ALL ONES 
; INTO RHD 

;THEN READING IT BACK 
; RHCS3 SHOULD HAVE 0 


ER ee 


;GET GOOD = 


;READ RHBA FOR “on 
; COMPARE EXP 
;DATA WITH ATA READ FROM 


i IF GOOD 


; AFTER CLEARING THE RH 
sAND WRITING ALL ONES 
; INTO RHDB 

;THEN READING IT BACK 

; RHBA SHOULD HAVE 0 


BUT CONTAINED WHAT IS 

: GIVEN IN BAD RHBA 

»GET GOOD = 

» READ ee con COMPARISON 


COMPAS» EXE 
ATA WITH BATA READ FROM 
: RHBAE 


—_ _—————— — | —_—_—-« 


rt tte etter -- 


MAINDEC-11-DERHAC-A 
DERHAC.P11 Tle 


4491 


me 





14376 
14400 


014402 
014402 


014410 
014416 


014424 
O14426 


014430 


014430 


001491 
104014 


012737 


017737 
023737 


001401 
104015 


000004 
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SILO TEST 2 (ONE WORD WRITE) 


000000 001124 


167446 001126 
001124 001126 


1v436 O1873? 00013 oowese 


ites 


BEQ 75$ ;BRANCH IF GOOD 

ERROR 14 
;AFTER CLEARING THE RH 
s AND WRITING ALL ONES 


sINTO R 
;THEN READING IT BACK 
; RHBAE SHOULD HAVE 0 


‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHBAE 


sCHECK THAT RHWC HAS 0 | 
MoV #0, SGDDAT -GET GOOD = 


pec Scpoat SBDDAT ;READ RHWC FOR COMPARISON 
fei where BATAS Reap FROM | 


BEQ 778 ‘BRANCH IF GOOD | 
ERROR 15 | 
AFTER CLEARING THE RH | 
; AN D WRITING ALL ONES } 


; INTO RHOB 
‘THEN READING IT BACK 
; RHC SHOULD HAVE 0 


‘BUT CONTAINED WHAT IS 
: GIVEN IN BAD RHWC 


753: 


773: 


: LEALEL RAL E ELLE EERE ERLE E ELE A EAE RARE KEL EEE ER EEL EE ERL ARE EEE ES 
TEST 13 SILO TEST 3 (TWO WORD WRITE) 


AL A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 
RHCSe IS an ED i. (BIT #6) HIGH, 


WRITTEN INTO 


os. Wtr AND UN ONT T alt MBER 
3," ITTEN INTO RHDB 
WAITED FOR BY A TRAP 


a care 2 pone an 
Ke iS, CHECKED T ig AND ChECKED BRO LTT NUMBER 


HOB 1S Q BE COND 
RON AIN a S 
RHCSe IS CHECKED TO HAVE “IR” AND UNIT NUMBER 
THEN ALL REGISTERS RHCS1, RHCS3, RHBA, RHBAE. RHWC 
ARE CHECKED TO HAVE APPROPIATE VALUE 


arregregenaregrepregeegregeeuregeerenrenrsurenrsrs m= 


- LELALERELAAAAARARASRAA ALARA AARAARALARARAAAAAAASRELALAARAAAALEA LEAS 


SCOPE 
MOV wSTACK $F ;RES T STACK 
MOV #13, 8TSTNM “SAVE TEST NUMBER 


MAINDEC-11-DERHAC-A 
DERHAC 


4eu6 


Pll 


014444 


014450 
O144S6 
014464 
01447e 


014S00 
014S0e2 


014504 


T13 
004737 


012737 
053737 


017737 
023737 


001401 
104006 


012777 


104411 
904070 
000200 


085737 


- 


MACY11 27(732) O9-SEP-76 97:55 PAGE 90 
SILO TEST 3 (TWO WORD WRITE) 


040322 JSR PC, J#CLDISK 
‘CHECK THAT RHCS2 HAS IR 

p00100 001124 MOV ; 
005010 0o01124 BIS UNIT, SGDDAT 
167400 001126 MOV JRHCS2, SBDDAT 
001124 o01126 CMP SGDDAT , SBDDAT 

BEQ 65$ 

ERROR 6 

65$: 


sWRITE ONE WORD = 


052525 167370 MOV #52525, JRHDB 


acai at INITIALIZE 
Hp UNIT NUBER 
‘CLEAR RHWC AND FUNCTION BITS IN RHCS1 


;GET GOOD = 100 

; INCLUDE UNIT NUMBER 

sREAD RHCS2 FOR COMPARISON 
Bate uh "DATA READ FROM 
i BRANCH IF GOOD 
;AFTER SETTING “CLR” BIT #5 
:IN RHCSe TO INIT THE RH 
;AND HAVING DONE NOTHING ELSE 
2100, SHOULD HAVE IR 

Phe WITH UNIT NUMBER 


BUT CO ONTAINED WHAT IS 
VEN IN BAD RHCS2 


OO te tere tee eee 


_ ——- ~—_ 


SeSeS INTO 


RHDB 
;WRITE IN RHDB 


;sWAIT FOR OR BIT IN RHCSe ao TO SET 
AT WAIT.T ¥00 UN 
‘AN uALT FOR F t. " 


W 
RHCS2 
OR 


; CHECK 7 RHCSe HAS IR!OR 


aust Bot 1 S4 hoy oNTT. ;ssooRT 
167330 001126 MOV JRHCS2, SBODAT 
001124 001126 CMP SGDDAT, SBDDAT 
BEQ 675 
ERROR 16 





HE WAIT 
TIME Mts APPR Learn 
R THAN SOO MILLISECONDS 


i 


‘Thc GOOD = 300 
NCLUDE UNIT NUMBER 


;READ RHCS2 FOR COMPARISON ) 
COMPARE EXPEC TED : 
;DATA WITH DATA READ FROM 


' BRANCH IF GOOD 


s AFTER SETTING ‘+t a aS 
; IN RHCS2 TO INIT THE R 
N WRITING S2SeS INTO 


bs SHOULD HAVE IR!OR 
=300 


MAINDEC-11-DERHAC-A 
DERHAC.P11 T13 
4603 
4604 
4605 
4606 014554 
4607 
4608 
4609 014554 012777 
4610 
uets 
46le O14S6e 104411 
4613 014564 004070 
4614 014566 000200 
4615 
4616 
4617 
46 1 
461 
4620 
46e1 
uss 
46 014570 012737 
4624 
4625 014576 017737 
ues 014604 023737 
$ 
4629 O146le 001401 
4630 O14614 104017 
463 
463 
re 
$3 
4636 
4637 
nt 014616 
4640 014616 012737 
4641 O01462% 053737 
4642 1 
4643 O14632 017737 
4644 014640 023737 
4645 
uea? 14646 00140 
4648 0146S 10402 
ms 
oe 
46Se 


ueze 0146S2 


rt te 


SILO 


1eS2Se 


0SeSe5 


167300 
001124 


000300 
005010 


167232 
001124 


&7(732) 
ST 3 (TWO WORD WR 


167320 


001124 


001126 
001126 


001124 
001124 


001126 
O01ieb 


09-SEP- a :SS PAGE 91 


THER WITH UNIT NUMBER 
CONTAINED WHAT I 
GIVEN IN BAD RHCS2 









673: 
‘WRITE A SECOND WORD = 125252 INTO RHDB 
MOV #125252, dRHDB ;WRITE 125252 INTO RHDB 
;WAIT FOR OR BIT IN RHCS2 REGISTER T 
WAT TRAE 70 had. F SUBROUTINE 
RHCS2 ae WAIT FOR OR OR BIT IN 
HORE AR” rae HERE 
i MEANS “OR” DID NOT 
‘SET FOR THE EL COUNT 
; DOWN OF THE We SUBROUTINE 
THIS TIME IS APPRO OXIM 
‘LARGER THAN SOO MILLISECONDS 
“CHECK THAT RHDB HAS S252 
Bt #52525, B HDAT eet GOOD = 0 
MOV gree SECA ner Ree F FOR COMPARISON 
pac har xPRTAY Reap FROM 
BEQ 695 ‘BRANCH IF GOOD 
parotid RT RCLEARING TH RH THEN 
Me ng THO) Ho MHORGS 
pi BEADING BHO ONCE 
‘BUT CONTAINED WHAT IS 
ia GIVEN IN BAD RHDB 
“CHECK THAT RHCS2 HAS IR!OR 
MOV BIR!OR,SGDDAT  ;GET GOOD = 300 
BIS UNIT, StDbAT ‘INCLUDE UNIT NUMBER 
MOV DRHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 
CMP SGDDAT,;S$BDDAT ;COMPARE EXPECTED 
:DAT Q WITH DATA READ FROM 
BEQ Z1s ‘BRANCH IF GOOD 
ERROR 2 
sAFTERCLEARING THE RH THEN 
MRA TING IN THO yHORD NTO 
B SeS2 125252 
: THEN READING. RHDB ONCE 
- SHOULD HAVE IR!OR 
t TOGETHER WITH UNIT NUMBER 
: BUT GaTALSD ee T IS 
ae ; GIVEN IN RHCS2 


—————— © LE ER ee ee 


MAINDEC-11-DERHAC-A 
DER 


HAC.P11 


0146S2 
14660 
014666 


014674 
014676 


014700 


014700 
014706 


014714 
014722 


~ 014730 


014732 


014734 
014734 
014742 
014750 


014756 
014760 


T13 


012737 
017737 
023737 


001401 
104021 


012737 
053737 


017737 
023737 


001401 
104022 


012737 
017737 
023737 


001401 
104141 


MACY11 27(732) 
SILO TEST 3 (TWO WORD WRITE) 


leSeS2 001124 


167216 
001124 


090100 
cJS010 


167150 
001124 


004200 


001126 
001126 


001124 
001124 


601126 
001126 


001124 


l67lle O01126 


001124 


001126 


BUS 


09-SEP-76 97:SS PAGE Ye 


733: 


sREAD RHDB A SECOND TIME 


-CHECK THAT RHOB HAS 125252 


MOV #125252, $GDDAT 


MOV JRHDB, $b. 7AT 
CMP $GDDAT , SBDDAT 


BEQ 73$ 
ERROR el 


sCHECK THAT RHCS2e HAS I 


HOV #IR, SGODAT 
BIS UNIT. SGDDAT 


MOV JRHCS2, SBDDAT 
CMP SGDDAT , SBDDAT 


BEQ 75$ 
ERROR 22 


— 


é 


R 
;GET 


;GET GOOD = 0 

;READ RHDB a — 
COMPARE EXP 

fal: WITH ATA READ FROM 
‘BRANCH IF GOOD 


sAFTER CLEARING RH THEN 
‘WRITING TWO WORDS INTO 


oS NO TI 

sRHDB SHOULD HAVE leS2eSe 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHODB 


GOOD = 100 
; INCLUDE UNIT NUMBER 
sREAD RHCS2 FOR COMPARISON 
; COMPARE EXPECTED 
i pat A WITH DATA READ FROM 
fence IF GOOD 


{MRT ING Tho WORDS. INTO 


THEN READING RHOB FRE 
SECOND TIME 

RG SHOULD HAVE IR 
‘TOGETHER WITH UNIT NUMBER 


‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCSe 


’ sCHECK THAT RHCS1 HAS DVA!IRDY 


ewMOV ¥DVA!IRDY,SGDDAT ;GET GOOD = 4200 


MOV JRHCS1, SBDDAT 
CMP SGDDAT, SBDDAT 


BEQ 77$ 
ERROR 141 


;sREAD RHCS1 Ad: COMPARISON 
; COMPARE EXP 
‘DATA WITH BATA READ FROM 


sRHCS 
:BRANCH IF GOOD 


; AFTER CLEARING RH THEN 


B 
‘THEN pony Le RHDB T 
SECOND TIME 


UNE 11-DERHAC-A 


RHRC.P 11 


014762 
014762 
014770 
014776 


015004 
01S00é 


0iS010 
015010 
O01S016 
015024 


015032 
015034 


015036 
015036 
015044 
015052 


015060 
015062 


T13 


0le737 
017737 
023737 


001401 
104142 


012737 
017737 
023737 


001401 
104143 


012737 
017737 
023737 


001401 
104144 


000000 001124 


167136 O011e6 
001124 O011e6 


O00000 001124 


167042 O0l1e6 
001124 O011e6 


090000 001124 


167060 001126 
O00ile4 OO011e6 


COS 


09-SEP-76 07:S5 PAGE 93 
WO WORD WRITE) 


773%: 


798: 


81$: 


sRHCS1 SHOULD HAVE DVA!RDY 


=4200 
ae CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS1 


“CHECK THAT RHCS3 HAS 0 
MOV #0, SGDDAT ‘GET GOOD = 0 


MOV @RHCS3,SBDDAT ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED 
; DATA WITH DATA READ FROM 


H 
BEG 79$ ‘ BRANCH IF GOOD 
ERROR 142 
; AFTER CLEARING RH THEN 


125252 
THEN READING RHDB THE 
‘SECOND TIME 
*RHCS3 SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS3 


“CHECK THAT RHBA HAS O F 
MoV #0, SGDDAT -GET GOOD = 0 


MOV JRHBA,SBDDAT  ;READ RHBA FOR COMPARISON 
CMP SGDDAT,SBDDAT  ;COMPARE EXP 
‘DATA WITH DATA READ FROM 


: RHBA 
81$ ‘BRANCH IF GOOD 
143 


;AFTER CLEARING RH THEN 
‘WRITING TWO WORDS INTO 
;RHOB S2S2S5 AND 125252 
THEN ee RHDB THE 


;RHBA SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


BEQ 
ERROR 


‘CHECK THAT RHBAE HAS 0 
MOV #0, S$GDDAT :GET GOOD = 0 


MOV M@RHBAE,SBDDAT ;READ en FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHBA 
BEQ 835 :BRANCH IF GOOD 
ERROR 144 
; AFTER CLEARING RH THEN 
sWRITING TWO WORDS ane 
;RHOB S2eS25 ae 5 §08 
> THEN READING RHO 


SECOND TIME 
:RHBAE SHOULD HAVE 0 


_—_——— _-— 


——— ee ee ee 


_ --_ 


MAINDEC-11-DERHAC-A rae 27(732) QO9-SEP-76 07:55 PAGE 94 
DERHAC.P11 T13 EST 3 (TWO WORD WRITE) 


477] ‘BUT CONTAINED WHAT IS 

4772 -GIVEN IN BAD RHBAE 

4773 015064 935: 

4774 ‘CHECK THAT RHWC HAS O 

1275 015064 012737 oOo0000 o01124 MOV #0, SGDDAT -GET GOOD = 0 

4777 015072 017737 166764 001126 MOV DRHWC,SBDDAT ;READ RHC ER COMPARISON 

4778 015100 0923737 001124 091126 CMP $GDDAT , SBDDAT Sate oT PECT ED 

1273 TA WITH DATA READ FROM 

4781 015106 001401 SEQ 85$ BRANCH IF GOOD 

4782 015110 104145 ERROR 145 

4793 -AFTER CLEARING RH THEN 

4784 “WRITING TWO WORDS INTO 

4785 -RHDB S2S25 125252 

4796 : THEN READING RHDB THE 

4797 ;SECOND TIME 

4788 -RHWC SHOULD HAVE 0 

4789 ‘BUT CONTAINED WHAT IS 

4790 ‘GIVEN IN BAD RHWC 

4791 015112 ess: 

4792 

4793 

4794 ; ESSER ERE FEEL REREE KLEE SS LESLE REE RE REE REE REAR RASS ERE RELA ELH HE SES SES 

123 -ATEST 14 SILO TEST 4 (COUNT PATTERN) 

4797 x AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 

4798 : RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, TOGETHER 

4799 : WITH UNIT NUMBER 

4800 : EIGHT WORDS, A COUNT PATTERN O THRU 7 IS WRITTEN 

4801 . % INTO mn HDB 

4802 : “OR” (BIT #7 IN RHC$2) 738 WAITED FOR BY A TRAP 

4803 : x INSTRUCTION CALLED ™ 

4804 i : THEN RHCS2 IS CHEC KED. to HAVE “IR” LOW AND 

4805 : i "OR" HIGH TOGETHER WITH THE UNIT NUMBER 

1806 :# THEN RHBIS READ AND COMPARED TO HAVE THE RIGHT VALUE 

4808 8 THEN RHCS2, RHCS1, RHCS3, RHBA, RHBAE RHWC ARE 

4809 i CHECKED TO’HAVE THE APPROPIATE VALUE — 

4810 POET en, Bs Bho, Bhan, Wc ob BE: 

4811 015112 oo0004 ; téT14: SCO 

4812 015114 012706 o01000 MOV HSTACK, SP ‘RESET STACK 

4813 015120 012737 000014 oo4EseE MOV #14, a8 TSTNM :SAVE TEST NUMBER 

4815 015126 004737 040322 JSR PC, J#CLDISK -GIVE RH INITIALIZE 

4816 -SETUP UNIT NUBE 

1817 ‘CLEAR RHWC AND FUNCTION BITS IN RHCS1 
4 

4919 “CHECK THAT RHCS2 HAS IR 

4829 015132 012737 O00100 001124 MOV #IR, $GDDAT :GET GOOD = 100 

1321 015140 053737 OOSOiIO 001124 BIS UNIT. $GDDAT ‘INCLUDE UNIT NUMBER 

4823 O1SI146 017737 166716 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 

4824 O15!54 623737 601124 OOllee CMP $GDDAT,$BDDAT  ;COMPARE EXPECTED 

4up2S ‘DATA WITH DATA READ FROM 


4826 :RHCS2 


_- ——— eee ee eee te 


SEAMAESPLE id SILO TeSf'G°CCounf PATTERN 


ay dete ee 

4829 - | rTen SETTING “CLR” BIT #5 
4830 -IN RHCS2 TO INIT THE RH 
4931 : ‘AND HAVING DONE NOTHING ELSE 
4832 ‘RHCS2 SHOULD HAVE IR 

Hr : 1100 WITH UNIT NUMBER 
dBae ‘BUT CONTAINED UAT He 

4836 ‘GIVEN IN BAD RHCS2 

4837 915166 SS: 

Mo: -WRITE EIGHT WORDS INTO RHDB 10 FILL IT 

a 15166 e70e 000010 | jfHIs 7 We: tosegiey” Nun BER TO B 

aB4 Btet 8 Bb EOD CLR Ri’ PRS BRD eo Be“ RAT ITEN = 0 
4843 015174 B16177 166702 1S: MOV RI, JRHDS8 ; WRITE INTO RHDB - A COU 

444 015200 005201 ING R EXT WORD 

1eub Bt eshS vat 395 NE COUNT T oF 8 NOT DONE 

1eNe aad “ sAiT FOR OR BIT IN RHCS2 {REGISTER TO ‘SET pose 
deca BieStB Apuctd RHCS2 t AND WA alr FOR” oR BPR OU 

4eS1 O1S2le o00200 OR *RHCS2 R 

48S -T Pe ane one COR HERE 

4953 1 MEANS "OR" DI NOT 

4854 ; SET FOR THE FULL 

4ugss : DOWN OF WALT 7 “SUegoUTINE 
4856 : THIS S APPROXIMATELY 
1852 ‘LARGER THAN SOO MILLISECONDS 
4859 “CHECK THAT RHCS2 HAS OR 

4860 015214 012737 O00200 o01124 MOV #OR, S$GDDAT :GET GOOD = 200 

1861 015e22 053737 OOSOIO OO11e4 BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 

4863 015239 017737 166634 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
4864 015226 023727 001124 001126 CMP SGDDAT.$BDDAT  ;COMPARE EXPECTED 

1866 i DATA WITH DATA READ FROM 
Woes Oieo4e fodces FRROR 33° sBRANCH IF GOOD 

4B :AFTER SETTING CLR" BIT 8S 
4870 -IN RHCS2 TO INIT THE R 

4871 : AND eat WRITTEN. A 

4872 ‘COUNT P TERN O THRU 7 
4873 : INTO FILL IT 

4g78 ; RHCS2 ROHOULD HAVE OR 

4975 TOGETHER WITH UNIT NUMBER 
4277 ‘BUT CONTAINED WHAT IS 

4878 -GIVEN IN BAD RHcse 

4879 g1S250 673: 

4980 

481 


—_——— 2 a aoees ——— = 


MAINDEC-1i 
C.Pll 


DERHA 


015250 
015256 
015264 
01Se7e2 


015300 
01S30e 


015304 
0iS304 
01$3le 
01$320 
015326 


015334 
015336 


015340 
015346 
015346 
015354 
015362 


015370 
01S37e 


cataats | 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001491 
104024 


pg | gf (736) 
SILO TEST 4 (COUN 


000001 
000000 


16661e 
001124 


900002 
000001 


166556 
001124 


00003 


000002 


166522 
001124 


004664 
001124 


001126 
001126 


OO4EEY 
001124 


001126 
001126 


004664 
001124 


001126 
OC112& 


693: 


nT PA 


FOS 


Pace 07:55 PAGE 96 
TTERN) 


NOV rata Be ‘FIRST WORD TO BE READ 
Mov REBBT -GET GOOD = 0 

MOV ai $BDDAT § ;READ RHDB FOR COMPARISON 
CMP $GODAT,SBDDAT  :COMPAR 


fool TTA DA BATA AT READ FROM 
:BRANCH IF GOOD 


sAFTER SETTING “CLR” a” BS 
:IN RHCSe TO -? THE R 

AND WRITING A 

; COUNT nu Gan O THRU 7 

iN te RHDB T T 


ILL I 
* pepe RHDB THE 


fai AED 
SH 
: BUT cONTATNED aURAT IS 


GIVEN IN BAD RHOB 


BEG 69$ 
ERROR 24 


MOV we SILON sSECOND WORD TO BE READ 


; CHECK THAT RHDB "HAS l 
MOV #1, SGDDAT -GET GOOD = 0 
MOV JRHDB, SBODAT ;READ RHDB FOR COMPARISON 
At. S$BDDAT  ;COMPARE EXPECTE 
ont — foot: WITH DATA READ FROM 
BEG 71 ‘BRANCH IF GOOD 
ERROR 24 
;AFTER SETTING "CLR" BIT 8 
-IN RHC : 19 7 INIT THE RH 
WRITIN 
COUNT PATTERN 0 THRU 7 
-INTO RHDB TO FILL. IT 
: THEN ON READING RHO THE 
:SECOND TIME 
*RHDB SHOULD HAVE 1 
-BUT CONTAINED WHAT 1s 
:GIVEN IN BAD RHDB 
MOV a tgeSILONM ee ‘THIRD WORD TO BE READ 
CHECK 
hoy #2, SGDDAT -GET GOOD = 0 
SO UNO eee aT SCONPARE EXPECTED 
os iat Q WITH Bata READ FROM 
BEG : 738 ‘BRANCH IF GOOD 
Seinen ;AFTER SETTING “CLR” IT Be 
-IN RHCS2 TC INIT THE & 


MBA INDEC-11-DERHAC-A 
OERHA T14 


C.Pil 


015374 
015374 
015402 


015430 
015430 
015436 


O1sHe4 
OLS4e4 


012737 
012737 


085737 


00140} 
104024 


Ule737 
012737 
017737 
623737 


001401 
104024 


MACY11 27(732) 


OO46E4 
001124 


poi 8 


000004 
000003 


ABEgE 6 


ococos 
000004 


166432 
001124 


OO4664 
O01ie4 


001126 
CO1le6 


COOC0E CO4EEY 


O9-SEP-76 97:55 PAGE 97 
SILO TEST 4 (COUNT PATTERN) 


733: 


773: 


MOV #4, SILONM 
; CHECK THAT RHDB HAS 3 

MOY #3, SGDDAT 

MOV RHDB, SBDDAT 
CMP gcobet eR T 

BEG 75$ 

ERROR 24 

MOY #5, SIL 


; CHECK THAT ROB. HAS 4 
MOV , SGDDAT 


MOV 
CMP 


tape S8DDAT 
$GDDAT, SBDDAT 


SEG 77$ 
ERROR 24 


MOY we, SILONM 
-CHECK THAT RHDB HAS S$ 


Wee aA ie Ee 
READING F RHOE THE 


; THIRD 
iB roe SHOUD Wat IS 
i SIVEN IN BAD RHDB 


;FOURTH WORD TO BE READ 
;GET GOOD = 0 


aoe! Pin B ae oo 
CO 

sDATR WITH DATA READ FROM 
‘BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 - 


sIN RHCS2 TO INIT THE RH 
: AND WATT TMG R 

‘COUNT PATTERN O e 7? 

s INTO RHDB TO FILL 

Sean READING RHOE THE 
ORTH My 


D HAVE 3 
a CONTAT OD WHAT IS 
VEN IN RHOS 


;FIFTH WORD TO BE READ 
;GET GOOD = 0 


;sREAD RHDB FOR COMPARISON 
; COMPARE EXPECTED 
‘DATA WITH DATA READ FRON 


: RHOB 
;BRANCH IF GOOD 


; AFTER SETTING “CLR” ai 5 
N RHCSe TO INIT THE R 

AND WRITING A 

; COUNT et oy O THRU 7 

sINTO RHOB TO FILL IT 

THEN ra READING RHDB THE 


E 
: RHDB 8 SHOU LD HAVE 4 
By CONTAIN sae ch IS 
GIVEN IN 


;SIXTH WORD TO BE READ 


MBINDEC-11-DERHAC-A 
DERHAC.F11 T14 


0i547e2 


015500 
015506 


O1SsS4 
015554 
015562 
018576 


015604 
O1S60E 


012737 


012737 
012737 
17737 
3737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


MACY11 &7(732) 
SILO TEST 4 (COUNT PATTERN) 


oo0c00S 001124 


166376 


OOile4 OOlieé 


900007 
000006 


166342 
001124 


090010 
000007 


166306 
001124 


001126 


OO4664 
001124 


001125 
001126 


OO4664 
001124 


001126 
001126 


09-SEP-76 97:55 PAGE 98 


7938: 


81$: 


MOV 


MOV 


MOV 
CMP 


BEG 
ERROR 


MOV 
MOV 


MOV 
CMP 


BEQ 
ERROR 


#S, SGDDAT 
JRHDB , SSODAT 
$GD 


bat, $BDDAT 


79S 
24 


MOV #7, SILONM 
-CHECK THAT RHDB HAS & 
#6, SGDDAT 


JRHDB, SBDDAT 
SGDDAT, $BDDAT 


81$ 
24 


#8. ,SILONM 


-CHECK THAT RHDB_HAS 7 
#7, SGDDAT 


JRHDB, SBDDAT 
$GDDAT, $BDDAT 


83$ 
e4 


;GET GOOD = 0 

sREAD RHDB FOR COMPARISON 
; COMPARE EXPECTED 

felt WITH DATA READ FROM 
: BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 
; IN wees TO INIT THE RH 
WRITING A 


COUNT ATTERN O THRU 7 
; INTO RHDB 70 FILL IT 
ADING RHDB THE 


; THEN 
‘SIXTH T 
OULD HAVE 5S 
ine CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


;SEVENTH WORD TO BE READ 
;GET GOOD = 0 


;sREAD RHDB FOR COMPARISON 
;COMPARE EXPECTED 
DATA WITH DATA READ FROM 


H 
BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT aS 
; IN RES TO INIT THE RH 
SAND WR 

‘COUNT PATTERN O THRU 7 

: INTO RHOB TO FILL IT 

; THEN , R pints RHODE THE 

; SEV ENTH T 


;RHDB SHOULD HAVE & 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


;sEIGHTH WORD TO BE READ 
;GET GOOD = 9 


sREAD RHDB FOR COMPARISCN 
;COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


H 
‘BRANCH IF GOOD 


RE Wah ee 


;AND WRITI 
; COUNT PATTERN QO THRU 7? 


peANRe Pit tia 


S051 


0i5610 


015610 
015616 


015624 
015632 


O15E40 
015642 


015644 
015644 


p18ee5 


S666 
S670 


oOo 
o— 


ClSé7e2 
iSé7e 


012737 
053737 


017737 
023737 


001401 
104025 


012737 
625737 


001401 
104026 


Cle737 


US 


ETH PRlaRT Bich 7S PE 9 


000100 
005010 


166240 
001124 


001124 
001124 


001126 
001126 


004200 O0i12e4 


OGiies o01ise 


2000008 COlle4 


835: 


gss: 


97$: 


gt RHDB TO FILL IT 
iH NTH TIRE RHOB THE 


VE 7 
SBUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


“CHECK THAT RHCS2 HAS IR 
MOV #IR, SGODAT :GET GOOD = 


100 
; INCLUDE UNIT NUMBER 


SIs UNIT, $GDDAT 
MOV DRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISC!: 
CMP SGDDAT. $BDDAT ; COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
BEQStsé« SS 'BRANCH IF GOOD 
mes La TTING “CLR” BIT #5 
RSW al heh 
AND WRITING 
et THRU ? 
AS BREE hdd 
; RHC SHOULD > WAVE IR 


=] 
 TOGE THER WITH UNIT NUMBER 
: BUT CONTAINED WHAT IS 
«GIVEN IN BAD RHCS2 


“CHECK THAT RHCS1 HAS DVA!RDY 
MOY wDVAIRDY,SGDDAT ;GET GOOD = 4200 


MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT;$BDDAT  ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


:RHCS 

BEG 87$ -BRANCH IF GOOD 

ERROR 26 i 
-AFTER as TING “CLR” BIT & 
; i N_ RH NIT THE RH 
‘COUNT PATTERN 0 es 7 


INTO RHOB TO NG RHOB 
: THEN ON READING RHOB THE 
sTOTAL 8 T 


:RHCS1 SHOULD HAVE DVA!RDY 


0 
ae CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


sCHECK THAT aoe HAS 0 


hoy 80, SGODAT :GET GOOD = 0 


8 


(‘AD 


oO 


> b= b+ b= bb bb bb + be es 
<= tet tat or pr tnt reg oth kg rUrurTUury PUTUTU b— — be 8 b+ ates 
~— Ou) £WM © WOON MULE fe OOO NOU © ONe- & 


SSS 
££ 
ul 


eartatea tata tata ea tal ta teal ea tata ta alee ta ea tale t ts Catal ea tata reat a lta taltalts Calta ttalts Ca tama tal tala tal tal tal tal talis Calta te tala) 


b-= b= b= b= b= b= bs bb 0 


CeaAC MUNIN IN UNUNncritnininicn © ££ F 3 
M-—-OVOONMTUCar-OwWmwn) 


HOES ET ET Bich PO 10 
Se Ge AR RR RAR Se vor 

T A READ FROM 
ue RS Hie orc 1 coo 


;AFTER SETTING “CLR” BIT aS 
IN RHCS2 TO INIT THE RH 


: AND ah i" a 

‘COUNT PATTERN O THRU 7 

: INTO oe TO FILL IT 
RHOB THE 


am 
BORN BS Ps 


VEN IN BAD RHCS3 


epahes o7e: CHECK THAT RHBA HAS 0 
015720 912737 of0000 001124 ine 40, scppaT ‘GET GOOD = 0 
GIES GH SHEE RHEE =| RBASEEBEL, ESRBARE SpE epPmrtsn 
iDATA WITH DATA READ FROM 
i572 00140: BEQ 315 ‘BRANCH IF GOOD 
15744 194030 ERROR 30 
-AFTER SETTING “CLR” BIT #5 
; IN aD WRITING 0 INIT THE RH 
COUNT. PAT THRU 7 
ENTO RHOB Ean FILL IT 
THEN ON READING RHDB THE 
‘TOTAL 8 TIMES 
*RHBA SHOULD HA 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHBA 
01574 91S: 
‘CHECK THAT RHBAE HAS O 
015746 012737 oocopn 901124 HOY #0, $GDDAT -GET GOOD = 0 
15754 017737 166150 001126 MOV RHBAE,S$BDDAT  ;READ RHBAE FOR. OMPARISON 
pies 2 8b 593 : 1124 O0lies CMP ROBART SBDDAT CORBARE EXP EXP 
ATA WITH BATA READ FROM 
015770 001401 BEQ 935 ;RHBRE IF GOOD 
015772 104031 ERROR 331 


a4 SETTING “CLR” BIT #5 
; IN RES TO INIT THE RH 
;AND WRITING A 

;COUNT PATTERN O THRU 7” 

s1N it RHDB TO FILL IT 

N ON Beni RHOB THE 


‘GIVEN IN BAD RHBAE 


SuSE 8 


uIUnn or 
o— bp 
Py Ps PP a 


“SIO” 


CVU FVII CFV TF CUT rst 
DRE toro Owes VOUT Lor Os GOO 


-—- > >— &—- > b— bb b= bP Fb 0 be bb bp bb bp pe 9 ps be pe 


we] 
a 


01S774 
01S774 
016002 
016010 


016016 
016020 


016022 


12084 
016030 


016036 


016042 
016950 


C1E056 


012737 
017737 
023737 


001401 
104032 


00004 
1e706 
912737 


004737 


012737 
053737 


017737 


rhe ac (/ 36) 
EST 4 (COUNT PATTE 


SILO 


000090 001124 


166054 001126 
001124 O011e6 


001000 
000015 


040322 


000190 
005010 


L1E600E 


OO4656 


001124 
001124 


001126 


— ee @e @e @e 2 @e @e S26 2s ese @2e we we wee ee 


KOS 


oF Bere iy) toe PAGE 101 


933: 
“CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 


MOV DRHWC,SBODAT  § ;READ RHWC FOR COMPARISON 
CMP SGDDAT , $BDDAT ; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


95$ Snel IF GOOD 


BEQ 

ERROR 32 
;AFTER SETTING 1h BIT #5 
; IN ath ae. an IT THE RH 


;A 
‘COUNT PATTERN 0 iss da 
INTO N OH TO FIL 

FADING. HOB THE 


eae 
_ Ds 


2 a mamma oy er go 2 menace crsenmene tee 
T 15 SILO TEST S (FLOATING ONES) } y 


AFTER ARH CLEAR IS GIVEN (SET BIT #5 IN RHCS2) 

RHCS2 IS CHECKED TO HAVE “IR” (BIT #6) HIGH, 

TOGETHER WITH UNIT NUMBER 

EIGHT WORDS 70 RAGE OF FLOATING ONES (1,2,4,10,20,40, 100,200) 


Is WRITTEN N ANT 
(BIT N RHCS2) IS WAITED FOR BY A TRAP 
INSTRU WAT 
THEN NrRHCSS 1s CHECKED TO HAVE “IR” LOW AND 
"OR" HIGH TOGETHER WITH THE UNIT NUMBE 
THEN RHDB IS READ AND COM 
RIGHT VALUE AFTER EACH OF THE EIGHT 
THEN RHCS2 IS CHECKED TO HAVE 
AND UNIT NU 
THEN RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
CHECKED TO'HAVE THE APPROPIATE VALUE 
Tne sag" ata eae: a gene ee pee ERE mnn et: -sareenipt iS 


CoP 
tay : #STACK, SP ‘RESET STACK 
MOV #15, a8TSTNM -SAVE TEST NUMBER 


JSR PC, a#CLOISK ;GIVE RH INITIALIZE 
-SETUP UNIT NUBER 
;CLEAR RHWC AND FUNCTION BITS IN RHCS! 


© HK RE DK OK EC DK NC De ie Oc he ic ic oe oi ee 


» CHECK THAT RHCS2 HAS IR 
Ho y #IR, $GDDAT :GET GOOD = 100 
UNIT, $GDDAT INCLUDE UNIT NUMBER 


MOV @RHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 


-_——_ ee ee eee 


DEAMAE PLL fie 


016064 


016072 
016074 


001401 
104006 


B15 be 
010177 
006301 


see 
nithtgs 


000206 


12737 
$3737 


017737 
023737 


ety 
104023 


re OS are? 


00010 


165770 


08010 dolis4 


1657ee 001126 
001124 OOlieb 


TS (F 
023737 001124 O01126 


bS$: 


1$: 


Lontine osye PAGE i0¢ 


;COMPARE EXPECTED 
sDATA WITH DATA READ FROM 


SEQ 65$ iB H IF GOOD 
ERROR 6 
EERSTE ciel 
. oe VING DONE NOTHING 
Be SHOULD HAVE IR 
s TOGETHER WITH UNIT NUMBER 


‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


CMP $GDDAT , SBDDAT 


lt EIGHT WORDS gh one a FILL IT 


hov ai : i Oe READY TO FLOAT ONES 
NOY 15 . Su ue “8 DaTh upebe 

MOV R1, JRHOB WRITE I 

ASL RI : SHIFT i NONE RBOSITION LEFT 
DEC Re SOT g 

BNE 1§ RANCH IF 8. NOT DONE 

-WAIT FOR OR SIT IN RHCS3 REGISTER T 

WAT it F SUBROUTINE 
RHCS2 AND. url T. F Ro 

OR ;RHCSe R 


sIF PRROR ORcuR HERE 
;IT MEANS “OR” DID NOT 


‘ LARGER THAN SOO MILLISECONDS 


“CHECK THAT RHCS2 HAS OR 
MOV #OR, SGDDAT 
BIS UNIT, SGDDAT INCLUDE UNIT NUMBER 


MOV -—«- MRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP  §$GDDAT;SBDDAT ;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
:RHCS2 
Q 675 ‘BRANCH IF GOOD 
ROR 23 ‘ 
AFTER SETTING “CLR” BIT #5 


;GET GOOD = 200 


WRITTEN A 
{FLOAT ING a git 


HATS Aes “6 Fit ett 
|ACS2” SHOULD HAV 


TOGETHER WITH UNIT NUMBER 
: BUT CONTAINED WHAT IS 


—_—-_ eee 


eae Mn lid 


S275 ;GIVEN IN BAD RHCS2 | 
2678 016162 67$: | 
S2 


016162 012737 oOO00001 oO04664 MOV #1,SIL ‘FIRST WORD TO BE READ 
281 - CHECK THAT aHOB. HAS 1 
016170 912737 000001 9001124 1,$GDDAT :GET GOOD = 0 


ich | 
see BIESGS BbS>3> ABTION BBIIEE he ScbBat SBoAT © fCOMPARE EXPECTED | 


sDATA WITH DATA READ FROM 





3 016212 091401 BEO 69 RHR IF GOOD 
289 016214 104024 ERROR 24 
5290 ‘AFTER SETTING “CLR” BIT #5 : 
2592 a RURTTING A PATTERN. OF | 
eos | FLAT N6,90°40.10 ancy 18 : 
ii | 
5699 tN gh fel AddkuAR THE : 
5297 ) 
: Fe SIR | 
33 a CON NED WHAT IS 
VEN HN RHDB 
5301 016216 695: 
2305 
04 016216 012737 oo0002 oD4664 MOV f SILONM :SECOND WORD TO BE READ 
306 CHECK TH TH ¥ ghHOg HAS 2 
2306 016224 012737 oo0002 001124 -GET GOOD = 0 
Se oe ee eo a a 
e310 SATE NETH D DATA READ FROM 
S3i2 O162% 001401 BEQ 71S : BRANCH IF GOOD 
S313 016250 104024 ERROR 24 
5314 :AFTER SETTING “CLR” BIT #5 
531s ;IN RHCS2 TO INIT THE RH 
1g “AND WRITING A PATTERN OF 
317 jF LOAT ING G ONES (WHICH IS 
5319 tTATO HDB” 76 FILL {T | 
6320 : THEN ON FREADING RHOB THE 
6321 : : SECON 
S322 : RHDB SHOU LD HAVE 2 
323 ‘BUT CONTAINED WHAT IS 
324 | ;GIVEN IN BAD RHDB 
S ol62s2 : 71S: 
2355 
S328 016252 012737 OO00003 OO4&EY MOV #3, SILO : THIRD WORD TO BE READ 
6329 - CHECK THAT RHOB "HAS 4 
S330 016260 012737 oco004 001124 Mov , SGDDAT :GET GOOD = 0 


DERMRESPLL fis 


016266 
016274 


016302 
016304 


016306 


016306 
016314 
016322 
016330 


016336 
016340 


016342 


016342 
016350 
016256 
016364 


016372 
016374 


017737 
023737 


001401 
104024 


012737 
012737 


017737 
023737 


012737 
012737 
017737 
023737 


001401 
104024 


OPES eet Eee OB FING ON 


000004 
009010 


165554 
001124 


000005 
000020 


165520 
001124 


004664 
001124 


001126 
001126 


004664 
001124 


001126 
001126 


733: 


753: 


MOV 
CMP 


BEQ 
ERROR 


MOV 

MOV JRHOB, SBDDAT 
CMP SGDDAT , SBDDAT 
BEQ 755 

ERROR 24 

MCHECK That BHO HAS 20 
HOV Scopat 

MOV site SBDDAT 
CMP SGDDAT , SBDDAT 
BEG 775 

ERROR 24 


MF ates PAGE 104 


JRHOB, SBDDAT 
SGDDAT , $BDDAT 


73$ 
24 


#4, SIL 


MOV 
- CHECK THAT aOR "WAS 10 
#10, $GDDAT 


i i “tee. 1 FtUL iT 


Ree atl Reo Fron 


‘BRANCH IF GOOD 
; AFTER SETTING “CLR” BIT #5 
NIT THE RH 





Hae Aro 6 TO FRU IP 
OF ME 


i RHOB SHOULD HAVE 4 
:BUT CONTAINED WHAT IS 
;GIVEN IN RHOB 
;FOURTH WORD TO BE READ 
;GET GOOD = 0 
;READ RHDB FOR COMPARISON 
; COMPARE EXPECTED 
ere WITH DATA READ FROM 
‘BRANCH IF GOOD 
iON RH aces 10 IN iY Te ae BIT #5 
3 MURTTING. A A PATTERN OF 
aay. Sa (WHICH I 
100, 200) 
N_READING RHOB THE 
HEN H TIRE 
*RHDB SHOULD HAVE 


10 
;BUT CONTAINED WHAT IS ' 
:GIVEN IN BAD RHOB 


sFIFTH WORD TO BE READ 
»GET GOOD = 0 
sREAD RHDB FOR COMPARISON 


ER GPIEWPERH Reco ern 


‘BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #5 


MAINDEC-11-DERHAC-A 
DER 


HAC .P11 


016376 


016376 
015404 


01643¢2 


016432 
016440 
O1B44E 
016454 


016462 
OC16464 


T15 


0ie737 
012737 


017737 
023737 


012737 
012737 
017737 
023737 


001401 


104024 


MACY11 27(732) 
SILO TEST S (FLOATING ONES) 


000006 
000040 


165464 
001124 


000007 
000100 


165430 
001124 


OO46E4 
001124 


001126 
0011e6 


004664 
001124 


001126 
001126 
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773: 
MOV #6, SILON 
“CHECK THAT RADE HAS 40 
MOV #40, SGDDAT 
MOV JRHDB, SBDDAT 
CMP SGDDAT , $BDDAT 
BEQ 79 
ERROR 24 
733: 


MOV e 
» CHECK rat ahoB "WAS 100 
MoV #100, SGDDAT 


MOV JRHDB, $BDDAT 
CMP SGDDAT , $BDDAT 


BEQ 81$ 
ERROR 24 


; IN yh NIT_ THE RH 
;AND WRITING A PATTERN OF 
pF LOATING age (WHICH iS 


100 4200) 
iTATO RHD Hoa TO FL 

THEN ON READING bbe THE 
FIFTH TIME 


;RHDB SHOULD HAVE 20 


;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHDB 


«SIXTH WORD TO BE READ 
GET GOOD = 0 
sREAD RHDB FOR COMPARISON 


COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHD 
;BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
sIN RHCSe TO INIT THE RH 
AND WRITING A PATTERN OF 
jFLOATIN ONES (WHICH IS 
1,2,4 20,40, 100,200) 


HATO RHOB TO FILL tT 


THEN ON READING RHOB THE 
SIXTH TIME 

;RHDB SHOULD HAVE 40 

‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHDB 


;SEVENTH WORD TO BE READ 
;GET GOOD = 0 


sREAD RHDB FOR COMPARISON 
‘COMPARE EXPECTED 
sDAT A WITH DATA READ FROM 


i BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 
‘AND WRITING A PATTERN OF 
BRIT es WS 
s1ATO bi 08 TO FILL {IT 
THEN, EN 9 ON READING RHDB THE 
: RHDB SHOULD HAVE 100 


ee ~~ ow - ee 


-—_—-_— Ee Ee 


—_ = 


- . - — te eee 


{ 
MAINDEC-11-DERHAC-A MACY11 27(732) SEP-76 07:55 PAGE 106 
DERNRE Pll ris teSts > ( CFLOATIN Ps ) 


SILO G ON 
S443 -BUT CONTAINED WHAT IS 
yyy ‘GIVEN IN BAD RHDB 
445 O16466 81S: 
aN 
2 
Suye O16466 012737 OO00010 oo4e64 MOV “8. , SILONM ‘EIGHTH WORD TO BE READ 
S49 ‘CHECK THAT RHDB HAS 200 
as : 016474 012737 o00200 001124 MOV #200, $GDDAT -GET GOOD = 0 
SuS2 016502 017737 165374 001126 MOV §_ JRHDB,SBDDAT  ;READ RHDB FOR COMPARISON 
S453 016510 023737 O011e4% 001126 : CMP SGDDAT,SBDDAT ;COMPARE EXPECTED 
Susy : ‘DATA WITH DATA READ FROM 
Syss : RHDB 
S456 016516 001401 PEQ 93$ ‘BRANCH IF GOOD 
S4S7 016520 104024 ERROR 24 
is: AFTER SETTING OLR BIT #5 
S4s9 -IN RHCS2e TO INIT THE RH 
S460 “AND WRITING A PATTERN OF 
S461 pF LQATING QNES (WHICH 3 
S462 1. 0,40, 100, 200) 
cup3 1 5 Thi 08 TO FILL fT 
S464 THEN ON READING RHOB THE 
Sues GHTH TIM 
S466 : RHOB SHOULD HAVE 200 
S467 ‘BUT CONTATNED WHAT IS 
S468 -GIVEN IN #AD RHOB 
S469 016522 93S: 
5470 
547] 
S472 -  sOHECK THAT RHCS2 HAS IR 
S473 016522 912737 o00100 001124 MOV #IR, SGDDAT -GET GOOD = 100 
ate 016530 053737 005010 001124 BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 
S476 016536 017737 165326 001126 MOV JRHCS2,$B8DDAT  ;READ RHCS2 FOR COMPARISON 
S477 016544 023737 001124 O01126 CMP SGDDAT,$BDDAT  :COMPARE EXPECTED 
2478 ipaTe WITH DATA READ FROM 
Syeo o16sS2 001401 BEQ 85$ ‘BRANCH IF GOOD 
Sygi O1e554 104025 ERROR 25 
Suge sAFTER SETTING “CLR” BIT #5 
S483 -IN RHCS2 TO INIT THE RH 
ae Retin Be ag 
486 ; ey 
5487 TATO RHE 78 Pte ts 
S4ee i THEN on READING RHDB THE 
4gq ‘TOTAL 8 TIM 
49 ; RH CS2 SHOULD HAVE IR 
S49] | =100 
S492 ;TOGE THER WITH UNIT NUMBER 
5493 ‘BUT CONTAINED WHAT IS 
5494 7 *GIVEN IN BAD RHCS2 
S49s  O1eSSé 8ss: 
S496 ‘CHECK THAT RHCS1 HAS DVA!RDY 
497 OlESS& 012737 oo4e00 001124 AOV ¥DVAIRDY,SGDDAT ;GET GOOD = 4200 


- —_— re tt ce ee ee 


pean Catt -OERHAS 


Pil 
S499 016564 017737 
9900 016572 023737 
550 


016600 001401 
SSO4 016602 104026 


BEI? o1e604 

S519 016604 012737 
E51 O16612 017737 
B52 Olee20 023737 


55e5 Ol166e6 001401 
5$5e¢6 016630 104027 


5538 016632 
S540 016632 012737 


Bus Oikeve 29739 


S46 O16654 00140! 
5547 C1i66SE 104030 


SIL Tes 


165270 
OBI e4 


7(732) 
TS (F 
001126 
0011e6 


000000 001124 


165314 001126 
001124 001126 


000000 O01ie4 


agiie4 


Olleb 
Olleé 


LONTIRE ONES) 07:55 PAGE 107 


97S: 


89s: 


CMP aepbat’ SEDbAT 


BEQ 87$ 
ERROR 26 


“CHECK THAT RHCS3 HAS O 
MOV #0, SGDDAT 


MOV JRHCS3, SBDDAT 
CMP SGDDAT , SBDDAT 


BEQ 89$ 
ERROR 27 


“CHECK THAT RHBA HAS 0 
MoV #0, SGDDAT 


MOV gRHBA SBDDAT 
CMP GDDAT, SBDDAT 


BEQ 915 
ERROR 30 


of 


i taFy Apacs etd 


COMPARE. EXP PRR ihn 
DATA WITH DATA READ FROM 


BLS, IF GOOD 


Hh Ric8e 10°Ynrt Tue Re 


‘AND WRITING A PATTERN OF 
FLQATING “OheS (WHICH IS 
40,100,200) 


: TAO AHO TO FILL tt 


: THEN READING RHOB THE 
: TOTAL °° TiN 
; RHCS1 SHOULD HAVE DVA!RDY 


=4200 
BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


;GET GOOD = 0 


; READ nage 4 COMPARISON 
:COMPARE EXP 
; DAT A WITH DATA READ FROM 


‘ BRANCH IF GOOD 


;AFTER SETTING a gh aS 
;IN RHCSe TO INIT THE R 

;AND WRITING A PATTERN OF 
‘FLOATING ONES (WHICH IS 

0 ‘7 pg0U) 


+ TOTA ON READ ty fete THE 
;RHCS3_SHOUL 


HAVE 0 
: BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 


;GET GOOD = 0 A 


;READ RHBA a COMPARISON 
;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


; RHO 
;BRANCH IF GOOD 


;AF TER a5 TING ty of aS 
*IN RHCSe TO INIT THE RH 
‘AND WRITING A hdl ew OF 
te ah on or = WHICH IS 


190 200) 
TAT "Ri DAT 
THEN ON READING. RHOB THE 


_- ~~ ——_ ——_— —— = <r - —_——_——— ee ae eee — 


MR INDEC-11-DERHAC-A 
DERHAC.P11 T15 


016660 
016660 
O16666 
016674 


016702 
016704 


016706 
016706 


- 


O16: 
016722 


016730 
016732 


C1E734 


012737 
017737 
023737 


001401 
104031 


012737 
017737 
Je3737 


001401 
104032 


MACY11 27(732) 


000090 001124 


165236 001126 
001124 001126 


000000 001124 


165142 O011e6 
001124 O01126 


4 
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SILO TEST S (FLOATING ONES) 


91S: 
- CHECK THB RHBAE HAS O 
at ADBAT 
MOV ment. SBDDAT 
CMP SGDDAT , SBDDAT 
BEQ 93$ 
ERROR 31 

938: 
“CHECK THAT RHWC HAS O 
MOV #0, SGDDAT 
MOV JRHWC , SBDDAT 
CMP $GDDAT, $BDDAT 
BE 9S$ 
ERROR 32 

sss: i 


q 
. 
$ 


eT 
-& 
> 
ca 


eee ik ETLD TERT & CELCATIMG CES IN LIPPER BYTE. 


TAO RAO TO FILL 


FUL 8 hie 

sRHBA SHOULD HAVE 0 

; BU CONTAINED WHAT IS 
;GIVEN IN BAD RHBA 


;GET GOOD = 0 


; READ ENP FOR COMPARISON 
Sate ure DAYAR 

TA_WITH DATA READ FROM 
BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
;IN RHCSe TO INIT THE RH 
‘AND WRITING A PATTERN OF 
if an So ONES 30, 100, H IS 
‘aa 


1hPo N ON RRP ENG ROB THE 


SHOU LD HAVE 0 
ONTAINED WHAT IS 


10 
RHB 

+ BUT C 

;sGIVEN IN BAD RHBAE 


;GET GOOD = 0 


;READ RHWC FOR COMPARISON 
COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


HW 
: BRANCH IF GOOD 


;AFTER SETTING "CLR" BIT #5 
N RHCS2 TO INIT THE RH 
{AND WRITING A PATTERN OF 
HELOATING ONES (WHICH IS 
c 

TAT HOB TO FILL tf 

: THEN ON READING RHOB THE 
;TOTAL 8 TIMES 
sRHWC SHOULD HAVE 0 
BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


T 16 SILO TEST & (FLOATING ONES IN UPPER BYTE) 
AFTER A RH CLEAR IS GIVEN (SET BIT #S IN RHCS2) 


RHCS2 IS CHECKED 


TO HAVE “IR” (BIT #6) HIGH, 
TOGETHER WITH UNIT NUMBER 


-—-——_— ——— oo —* 


FOS 
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DERHAC.P11 T1& SILO TEST & (FLOATING ONES IN UPPER BYTE) 





S611 4 EIGHT WORDS, A PATTERN OF FLOATING ONES IN UPPER BYTE 
S612 : 490 nA? e000 0, 4000, 10000, ,20000,40000, 100000 
S612 .% EN 
5614 : + “ IN RHCS2) IS WAITED FOR BY A TRAP 
5615 :# ALLED “WAT” 
S61E ti 1S CHECKED TO HAVE “IR” LOW AND 
5617 : "OR" HIGH TOGETHER WITH THE UNIT NUMB 
5618 : THEN RHDB IS READ AND COMPARED to. HAVE THE 
5619 : RIGHT VALUE AFTER EACH OF my EIGHT READS. 
S620 : THEN RHCS2e IS CHECKED TO HAVE “IR” 
S621 : i AND U NIT NUMBER 
Sb22 : THEN VRHCS1 RHCS3 RHBA RHBAE , RHWC ARE 
S623 i CHECKED TO HAVE THE APPROPIATE VALUE 
See sepeeeeneanenseaseeneeasenennentenssnesneneaeentanenneenensens 
S625 016734 ooo0004 ter 16; 
S626 O16736 Ole7oe 001000 iy ¥STACK, SP -RESET STACK 
5627 018742 012737 OODCIG oo4ESsS MOV #16, 08TSTNM -SAVE TEST NUMBER 
5629 016750 904737 o40322 JSR PC, J#CLOISK -GIVE RH INITIALIZE 
5630 -SETUP UNIT NUBER 
So31 : CLEAR RHWC AND FUNCTION BITS IN RHCS! 
5633 
5634 sCHECK THAT RHCS2 HAS IR 
S635 016754 0127327 o00100 901124 MOV 8IR, $GODAT :GET GOOD = 100 
Sb 36 016762 063737 9505010 601124 BIS UNIT, SGDDAT INCLUDE UNIT NUMBER 
5638 016770 017737 165074 oO01126 MOY JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
5639 O18776 023737 001124 O0lize CMP SGDDAT, $BODAT : COMPARE EXPECTED 
Sb40 | ;DATA WITH DATA READ FROM 
cé4e 017004 901401 BEG 65$ i BRANCH IF GOOD 
F643 O17506 04006 ERROR § 
ce44 -AFTER SETTING “CLR” BIT 4s 
seus -IN RHCS2 TO INIT THE RH 
po ue ; AND HAVING DONE NOTHING 
SbHe ; RHCS2 SHOULD HAVE IR 
5650 ; TOGETHER WITH UNIT NUMBER 
5651 ‘BUT CONTAINED WHAT IS 
cece . :GIVEN IN BAD RHCS2 
eb53 017010 S$: 
BSS “WRITE EIGHT WORDS INTO RHDB TO FILL IT 
E56 DATA IS 400, 1000, 2000. 4O00. 10000, Soba, 40000 
5656 017010 012701 ooo4o0 MOV 8400, Rl SETTING. REQ Y TO FLOAT ONES 
S6EC (917014 oO12702 oo0D10 MOV #8. Re : COUNTER 8 DATA WORDS 
S661 017020 010177 i&s0s6 1g: MOV Rl,  SRHOB WRITE INT 
bbe 017024 96301 ASL : SHIFT ONE NPOSITION LEFT 
663 017026 ooS202 DEC RS : COUNT 
S664 017930 901372 BNE 1$ ‘BRANCH IF : NOT DONE 
Stes “WAIT FOR OR BIT IN RHCS2 REGISTER T 


S 
Stee Ci7D22 10441) WAT “TRAP TO WAIT.T SUBROUTINE 


nN 
SINININNNNS 


GOS 


1-DERHAS-A nacy 127% (732) 99-SEP-76 97:55 PAGE 110 
l Tit TEST & (FLOATING ONES IN UPPER BYTE) 
17034 oc4o7 RHCS2  sQND WAIT FOR OR BIT IN 
17036 006206 OR ; RHCS2 REG R 
‘IF ERROR OCCURS HERE 
jis SANS “OR” DID NOT 
baa $8 THE GAYY,Feldnourne 
Nis S APPROXIMATELY’ 
‘LARGER THAN SOO MILLISECONDS 
- CHECK THAT T RHCSE HAS OR 
917040 912737 990200 901124 HOV T :GET GOOD = 200 
017046 952737 o050:9 oolie4 BIS init SGDDAT ‘INCLUDE UNIT NUMBER 
017054 017737 165010 991126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
17062 023737 O01ie4 O0112¢ CMP $GDDAT.$BDDAT :COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
917070 90140} BEQ 67$ : BROCH IF GOOD 
17672 104023 ERROR 23 
RSE Te inne hem 
SAND HAVING WITTEN B 
50,1008 ONES PATTERN INTO UPPER BYTE 
‘fo 0600 4000, 10000, 200ce 
G00 10 lp 669 8 FILL IT 
|RUCS2 SHOULD HAVE OF 
TERE THER WITH UNIT NUMBER 
BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS2 
91757 673: 
0:7074 012737 oOO0001 o04664 MOV :FIRST WORD TO BE READ 
» CHECK That aHOR "WAS 400 
017102 012737 soo4cD 901124 MoV 0, SGDDAT -GET GOOD = 0 
17110 017737 i64766 OC1126 MOV JRHOB,$BDDAT  § ;READ RHDB FOR COMPARISON 
17116 023737 001124 OO0lie6 CMP SGDDAT,$BDDAT :COMPARE EXPECTED 
-DATA WITH DATA READ FROM 
017124 901401 BEQ 69% :RHOB IF GOOD 
017126 + l0s0e4 ERROR 24 


AFTER SETTING “CLR BIT #5 
-IN RHCSe TO INIT R 
: AND WRITING A PATTERN OF FLOATING 
SONES (WHICH IS 400, 1000,2009.40c0, 
: 10000 50000 40000. 1g0 006; 

‘INTO RHOB TO FILL I 

: THEN ON READING BHO THE 
iP RST TIM ME 

RHDB SHOULD HAVE 490 
‘BUT CONTAINED WHAT IS 


Me iNDES = 
VERHH cTP hi 


017130 


017130 


017154 


017164 
617172 


017220 


017220 
Ci7ee& 


L1-DERHAC -- 
T1é 


012737 
Jle737 
017737 
Je3737 


091401 
104024 


012737 
Jle737 
017737 
023737 


091401 
104024 


MACY11 2&7 (732) 


oo000e 
001000 


164732 
901124 


000003 
002000 


164676 
001124 


004654 
O0ile4 


OCileé 
001126 


OC4664 
001124 


001126 
001126 


012737 OO000S4 CO4664 
Cie?37 CO40C0 COlle4 


09-SEP-76 GE i 
SILO TEST & (FLOMTING ONES IN UPPER BYTE) 


69$: 


71$: 


"CHE HECK reat t Rie wi 
iy 


ante, SBODAT 
$cDoAt , $BDDAT 


ill 


00, $c00AT 


JRHDB, SBODAT 
$GDDAT, SBDDAT 


that? Mr 5B "ue 
. 3G0DA 


;GIVEN IN BAD RHDB 


a | cies WORD TO BE READ 


T GOOD = 0 
AD ae FOR COMPARISON 
TA WITH A DATA. READ FROM 
ps I 


13.5 


Re 
iC 





“ONES (WH 
: N 

HEN 
:SECOND T 


F GOOD 
TN 1 THe he BIT #5 


ICH IS 


nee 
ON READING THE 


HO8 SHOUL 


a 
yeni 


HAVE 1000 
oi WHAT IS 
RHDB 


\ am WORD TO BE READ 


Det GOOD 


= 0 


;sREAD RHDB FOR COMPARISON 
Pitas BATAS READ FROM 

; RHOB 

BRANCH IF GOOD 

;AFTER SETTING A A 85 


IN RHCS2 


H 
;AND WRITING A PATTERN OF FLOATING 
;ONES (WHICH IS 400, 1000, 2000, 4900, 


TO INIT T 


: 10000 20000 49000, {00008} 


0 HOB 
TEN 


TO F aim 
READING “RHOB THE 


;TH HIRO. TIME 
;RHOB SHOULD HAVE 2000 
:BUT CONTAINED WHAT IS 


:GIVEN IN 


BAD RHOB 


M being WORD TO BE REAL 


000 GOO = 


0 


ITING A PATTERN "OF FLOATING 


MRINDEC-11-DERHAC-A noe? tA IMG: 2) Q9-SEP-76 97:55 PAGE ile 
DERHAC.P 11 T1E EST 


SILO (FLOATING ONES IN UPPER BYTE) 

Sree GLPERS LTE ARVSSG SRE RR BEDBASERRST 1 SRRAROR,EDE, POISON 

f < ra 
ma jDATA hart BATATR READ FROM 
$783 017250 001401 BEQ 75$ : BRANCH IF GOOD 
5784 17252 194024 ERROR 24 
578s -AFTER SETTING “CLR” BIT #5 
578 ; IN RHCS2 TO INIT THE RH , 

797 -AND WRITING A PATTERN OF FLOATING | 

788 ‘ONES (WHICH IS 400, 1000,200C, 4000, | 
5739 : 10000, 20000, 40000, {oo000) | 
5790 -INTO RHDB TO FILL IT : 
579] : THEN ON READING RHDB THE i 
5792 : FOURTH | 
5793 : RHOB SHOULD HAVE 4000 | 
5794 -BUT CONTAINED WHAT IS : 
5795 ‘GIVEN IN BAD RHOB | 
6796 017254 | 75S: | 
oe 
5799 017254 012737 o0000S oOO46EY -FIFTH WORD TO BE READ | 
2800 {CHECK mat RLOe HAS 1 0009 : 
S01 0:7262 012737 010000 001124 #10000, $GDDAT ET GOOD = 0 
S803 017270 017737 164606 901126 MOV RHOB, $BD -READ RHDB FOR COMPARISON 
S894 017276 023737 O0112e4% 601126 CMP acobat. gp BRAT coh Pane B. a rep 
5805 ATA WITH DATA READ FROM 
£807 017304 001401 BEQ 775 pRHOG IF GOOD 
Ssos o1730&6 ic4oo4 ERROR 24 
5809 sAFTER SETTING “CLR” BIT #5 
5810 -IN RHCSe TO INIT THE RH | 
$811 j AND WAL WRIT NG A PATTERN OF FLOATING 

le ONES (WHICH IS 400, 1000, 2000, 40900, 

5813 : 10000, 20000 40000 0 too 000) 

814 INTO R mt FIL ! re 

gis HEN at BEA ING RHOB THE 
Sg1é tFIFT H TIME 
5817 ‘RHDB SHOULD HAVE 10000 
5818 | ‘BUT CONTAINED WHAT IS 
5819 | -GIVEN IN BAD RHDB | 
6820 017210 775: 
re 
S823 017310 012737 OOO00D& oD4654 MOV “kbs SIXTH WORD TO BE READ 
5824 - CHECK That HDB HAS 2000 
265 617316 012737 O20000 901124 MOV 0,$GDDAT  ;GET GOOD = 0 
5827 017324 017737 164552 901126 MOV JRHDB,SBDDAT ;REA RHOB FOR COMPARISON 
S828 017332 023737 001124 001126 CMP $GDDAT,SBDDAT ;COMPARE EXPE 1B 
8c? :DAT Q WITH BETA READ FROM 
S831 017340 o01401 BEG 79 i BRANCH IF GOOD 
5832 017342 104024 ERROR 24 
£933 -AFTER SETTING “CLR” BIT #5 


Se34 -IN RHCS2 TO INIT THE RH 


MAINDEC-11-DERHAC-A 
DEANE Pit Tig 


017344 


17344 


017352 


017400 


017400 
017406 
017414 
0174ee 


017430 
017432 


012737 
012737 
£2030 
23737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


noel et 


SILO 


000007 


000010 
100000 


164462 
001124 


27(732) 


T& C cPLOAT 


OO4664 
001124 


001126 
001126 


004664 
001124 


001126 
O01ie6 


793: 


813: 


JOS 


-SEP-76 07:55 PAGE 113 
ING ONES IN UPPER BYTE) 


MOV 

: CHECK That RHO. HAS 4 

MOV 40000, $GDDAT 
MOV JRHDB, SSDDAT 

CMP SGDDAT, $BDDAT 


BEQ 81$ 
ERROR 24 


48. 
MOV #100000, SGDDAT 
MOV JRHDB, SBDDAT 
CMP SGDDAT, $BDDAT 


BEQ 83$ 
ERROR 24 


-AND WRITING A PATTERN OF FLOATING 
; ONES (WHICH IS 400, 1000,2000,4000, 
; 10000 20000 49000, 100006) 

0 RHDB TO F aie 
THEN ON READING LRHDB THE 


Lies PAE PP 


;GIVEN IN BAD RHDB 


a WORD TO BE READ 
;GET GOOD = 0 


sREAD RHDB FOR COMPARISON 
;COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


i BERNCH IF GOOD 


sAFTER SETTING “CLR” ME 


AN PHGE Ag ANBATTERN 0 OF AD 4000, 


; ONES (WHICH IS 400 1900 42000, 4 
; 10000, 20000 40 40000, 0, 190000 


THEN ON ON READING * RHOB THE 
i REOB SH SHOULD HAVE 4O0Q0 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


MOV , SILONM -EIGHTH WORD TO BE READ 
-CHECK THAT RHDB HAS 100000 
-GET GOOD = 0 


sREAD RHDB FOR COMPARISON 
; COMPARE EXPECTED 
; DAT A WITH DATA READ FROM 


H 
BRANCH IF GOOD 


4A SETTING “CLR” oe 


ato RURTTING A" PATTERN 0 OF Abe dane 
G0, 20000 an 400, 1000, 2000, 4000, 


1 2000, 9900, 0, $900 0000) 
Hl ON mmekae RHOB THE 


TIME 
: RHDB SHOU D HAVE 1000C0 
‘BUT CONTAINED WHAT IS 


K 
NAINOEC-L1-DERHAC-A NACY1127(732), 09-SEP-76, 07:55. PAGE 114 


HAC.P11 T16 SILO TEST & (FLOATING ONES IN UPPER BYTE) 
5891 -GIVEN IN BAD RHDE 
Seg2 (017434 93S: 
5893 
S634 
5995 “CHECK THAT RHCS2 HAS IR 
5896 017434 012737 000100 001124 MOV #IR, $GDDAT :GET GOOD = 100 
5837 17442 053737 OOSO10 001124 BIS UNIT, $GDDAT ‘INCLUDE UNIT NUMBER 
6899 017450 017737 184414 001126 MOV DRHCS2,SBDDAT ;READ RHCS2 FOR COMPARISON 
S900 017456 023737 001124 001126 CMP $GDDAT,$BDDAT COMPARE EXPECTED 
$901 pata, WITH DATA READ FROM 
as 017464 001401 BEQ 85$ ‘BRANCH IF GOOD 
S904 017466 104025 ERROR 25 
5905 AFTER SETTING "CLR" BIT #5 
5906 -IN RHCSe TO INIT THE RH 
5907 :AND WRITING A PATTERN OF FLOATING 
5908 ; ONES (WHICH IS 400, 1000,2000, 4000, 
5909 : 10000, 20000, 40000, 100000) 
5910 INTO RHD FILL IT 
5911 THEN ON READING RHDB THE 
5912 -TOTAL 8 TI 
$313 at SHOULD HAVE IR 
s9is * TOGETHER WITH UNIT NUMBER 
5916 ‘BUT CONTAINED WHAT IS 
5917 ‘GIVEN IN BAD RHCSe 
5918 017470 gss: 
5919 ;CHECK THAT RHCS1_HAS DVALRDY 
2360 017470 012737 oo4e00 001124 MOV #DVA'RDY,SGDDAT ;GET GOOD = 4200 
S922 017476 017737 164356 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 of OF COMPARISON 
5923 017504 023737 001124 001126 CMP $GDDAT,$BDDAT  :COMPARE EXP 
5924 ‘DATA WITH BATA READ FROM 
6925 * RHCS 
S926 017512 O0140! BEQ 975 ‘BRANCH IF GOOD 
S927 017514 104026 ERROR 26 
5928 -AFTER SETTING “LR BIT #5 
5929 sIN N RHCSe TO INIT THE RH 
a pe ual {srage o608 
se Bsa zis #0008, 1006065 
5934 THE . RH De 16 Ne” BOB THE 
5935 : TOTAL 
eas? jRHCSI SHOULD HAVE DVA!RDY 
938 ‘a ; OCONTAIN D WHAT IS 
939 VEN IN BAD RHCS1 
S940 017516 975: 
5941 : CHECK THAT RHCS3 HAS 0 
342 017516 012737 OO0000 001124 MOY #0, SGDDAT :GET GOOD = 0 
944 017524 017737 164402 001126 MOV DRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 
94s 017532 023737 001124 OOlles CMP $GDDAT;$BDDAT ;COMPARE EXPECTED 


S346 ‘DATA WITH DATA READ FROM 


MAINDEC-11-DERHAC-A 


DERHAC 


Pll 


017540 
017542 


017544 


017544 


175 
1756 


017S7e 
017572 
017600 
017606 


017614 
017616 


T16 


001401 
104027 


012737 


17737 
23737 


012737 
017737 
023737 


001401 
104031 


LOS 


MACY11 27(732) QO9-SEP-76 07:55 PAGE 115 
SILO TEST & (FLOATING ONES IN UPPER BYTE) 


BEQ b9$ 
ERROR 27 


B9s: 
: CHECK THAT RHBA HAS 0 
oo0000 001124 MOV #0, S$GDDAT 
164306 001126 MOV JRHBA, SBDDAT 
001124 001126 CMP SGDDAT, SBDDAT 
BEQ 91 
ERROR 30 
915: 
CHECK TH THAT Po HAS 0 
cooo00 (001124 ely 
164324 001126 MOV JRHBAE , SBDDAT 
001124 O01126 CMP SGDDAT, $BDDAT 


BES 935 
ERROR 31 


*RHCS3 

‘BRANCH IF GOOD 

‘AFTER SETTING “CLR” BIT #5 

-IN RHCS2 TO INIT THE RH 

‘AND WRITING A PATTERN OF FLOATIN 
‘ONES (WHICH IS 400, 1000,2000, 400 
: 10000, 20000, 40000, 100000) 
; INTO Rupe TO FILL IT 

i THEN N ON READING RHOB THE 
‘TOTAL 8 TIMES 

‘RHCS3 SHOULD HAVE 0 

‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS3 


G 
0 


;GET GOOD = 0 


sREAD RHBA FOR COMPARISON 
;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


; RHBA 
sBRANCH IF GOOD 
sAFTER SETTING “CLR” 7 


io Latte AY PATTERN OF FLOATING 


-ONES (WHICH IS 400, 1000,2000, 4000, 
: 10000 50000 40000, 100006) 
INTO RH HOB TO FILL IT 
THEN READING UB THE 
‘TOTAL 8 


it ‘ cONes i: AURA IS 
iSIVEN IN BAD RHBA 


;GET GOOD = 0 
sREAD RHBAE FOR once 
; COMPAR 


sDATA irTh DATA'R READ FROM 
; RHBAE 
sBRANCH IF GOOD 


; AFTER SETTING ¥ on — aS 
N RHCS2 TO INIT T 
‘aN WRITING @ PATTER FE AT ARS 
; ON S (WHICH IS 400, 0 
0000, 40000, ' 


T it, 
* THEN ON READING 3 THE 
OTAL IMES 


oo —_—— Sm em re re ee eee 
. 


DeRHRE-PLL fib 


017620 
017620 
017626 
017634 


017642 
017644 


017646 


1765 
017654 


017662 


017666 
017674 


012737 
017737 
023737 


001401 
104032 


000004 
012706 
01¢737 


004737 


012737 
053737 


SHES teS4 E°TeLORTING On 


000000 


164230 001126 


001124 


001000 
000017 


040322 


001124 


001126 


OO46S6 


935: 


9s$: 


WK DIK DEK IK Oc Dic RK Dic ic OC oc OK oc ic oie men 


we ewe ee @ewe Bees ee eewewe we we ee we wee we 


- SERS 


téT17 


S tN’ UPPER VTE) 


“CHECK THAT RHWC HAS O 
MOV #0, SGDDAT -GET .000 = 0 


MOV JRHWC , SBDDAT sRF J RHWC FOR COMPARISON 


CMP SGDDAT,SBDDAT ;f {PARE EXPECTED 
 4TA WITH DATA READ FROM 


3RANCH IF GOOD 


OCTER SETTING SLR" BIT #5 
cS2 TO INIT THE RH 
-AND WRITING : Mea ATTCRN OF FLOATING 
‘ONES (WHICH IS 400, 1000,2000,4000, 
: 10000, 20000, 40000, {000083 
IN NTO RHDB TO FILL IT 

THEN ON READING RHOB THE 
‘10 AL 8 


sRHWC SHOULD HAVE O 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


BEQ 95$ 
ERROR 32 


iercr qo eto. aT? FLOATING OD IN LOWER BYTE) 


SILO -ST 7 (FLOATING O IN LOWER BYT 


AFTER A RH ¢ CAR IS GIVEN (SET BIT #5 IN RHCS2) 
RHCS2 IS Ct JKED TO HAVE “IR” (BIT #6) HIGH, 
TOGETHER WW H UNIT NUMBE 

EIGHT WOR! OF FLOATING ZEROS 177776, 177775, 177773, 
17 7767 37, 177677, 177577 

1s uRit : 


oP IN RHCS2) IS WAITED. FOR BY A TRAP 

INSTRU? JON CALLED *HAT® 

THEN FP S2_IS CHECKED TO HAVE “IR™ LOW AND 
TOGETHER WITH THE UNIT NUMBER 

THEN DB IS READ AND COMPARED TO HAVE THE 

RIG VALUE AFTER EACH OF THE EIGHT READS. 

THF AT huts CHECKED TO HAVE "IR" 


T _N RHCS1, RHCS3, RHBA, RHBAE, RHWC ARE 
ECKED TO HAVE THE APPROPIATE” VALUE 
2 Sana SET aE Ba tome 


MOV #STACK, SP ‘RESET STACK 
MOV £17, J8TSTNM :SAVE TEST NUMBER 


JSR PC, d#CLDISK ;GIVE RH INITIALIZE 
sat UP UNIT NUBER 
EAR RHWC AND FUNCTION BITS IN RHCS) 


“CHECK THAT RHCS2 HAS IR 
OV #IR, SGDDAT :GET GOOD = 100 
BIS UNIT. SGDDAT INCLUDE UNIT NUMBER 


ee ee ee ee eee 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 117 
DERHAC.P11 T1? SILO TEST 7 (FLOATING ( IN LOWER BYTE) 






6059 
6060 017702 ° 7737 164162 001126 MOV RHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 
£061 3 aa 23737 i01124 BOT TSE CMP SeDbRT 'SBDDAT :COMPARE EXPECTED 

6062 ‘DATA WITH DATA READ FROM 
5963 * RHCS2 

6064 0177! 001401 BEQ 65S ‘BRANCH IF GOOD 

6065 0:77 . 104006 ERROR 6 . 

5066 sAFTER SETTING “CLR” BIT #5 
6067 -IN RHCS2 TO INIT THE.RH 
O68 ; AND HAVING DONE NOTHING 
070 ;RACS2 SHOULD HAVE IR 

6072 : TOGETHER WITH UNIT NUMBER 
6077 ‘BUT CONTAINED WHAT IS 

607 *GIVEN IN BAD RHCS2 

6c 2 017722 65S: 

. 77 :WRITE EIGHT WORDS INTO RHDB TO FILL IT ' 

378 ibata Js FLOA TING ZEROS 177776, 179776, [77773, 177767, 177757, 177737, 
6080 017722 012701 177776 hov #177776,R1 -GETTING READY TO FLOAT ZEROS 
6081 017726 012702 O00010 : MOV #8. Re ‘COUNTER -8 DATA WORDS 
6082 01773¢ 010177 164144 1S: HOY R1, JRHDB ‘WRITE INTO RHDB 
ae 177 BBETBY ROL RL ra SrRG ONE BIT LEFT 
PRE bizPua Boi S75 BN ; F 8 NOT DONE 
PERG Ne rh OR Bry IN pucsi BRN eTeR ¥o ae 
6088 017746 104411 MAT ale TRAP TO WAIT. {Sueno yr NE 
PARRA Hi55e8 BABAR as os RPE Ge 
6091" IF ERROR OCCURS HERE 
a | ALTER ip apc 

4 HE WAIT. 1 SUBROUTINE 
6095 THIS TIME 4s APPROXIMATELY 
603 . ‘LARGER THAN SOO MILLISECONDS 
6098 J 
£099 “CHECK THAT RHCS2 HAS OR 
6100 017754 012737 oOD0e00 001124 hoVv #OR, $GODAT :GET GOOD = 200 
at 017762 053737 O9S010 O01124 BIS UNIT, SGDDAT : INCLUDE UNIT NUMBER 
B1O% 17776 D2a737 OOILEY DOLIoE CHP SGDOAT'SEDOAT {COMPARE EXPECTED 

11 11 GDDAT, 
105 Bare WET ATR READ FROM 
6107 O20004 001401 BE 67$ Ricke IF GOOD 
6108 O20006 104023 ERROR 23 “ i wt ao 
etis . Hh Rec8s 10 ty TY THE MY 
bili ; WRITTEN A A PATTERN 
pis ae r77ko [Bhrke. (Sere. ip2sr? 
114 NTO TO FILL IT 





MRINDEC-11-DERHAC-A 
DERHAC.P11 T1? 


PEK KOK COM KKK KrOMrrrorr@odw 
© 


-- + b— §— b—- b= b— b= b= b= 9 b p= p— bs 9 be — bp — 9p pe 


e = 
rT 


6143 


6148 


PPM MMMM KKM MOO OOOrrmuwm 
> = F-+t ~ b+ b+ b+ hb ~ b-: p> & — = B= 54 = & = Fh fb bs be bp 
NOOO MMMM MOO UunNUIUIUIUIUIUNI UU 
QWONTMCWM—-OWONTU CWE 


020010 


020010 
020016 
020024 
020032 


020040 
020042 


020044 


020044 
020052 
O0200E0 
020066 


020074 
020076 


020100 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


MACY1! 27(732) 


000001 
177776 


1640S2 
001124 


000002 
177775 


164016 
001124 


004664 
00i124 


001ie6 
001126 


004664 
001124 


001126 
001126 


B10 


OS-SEP-76 07:SS5 PAGE 118 
SILO TEST 7 (FLOATING O IN LOWER BYTE) 


67$: 


693: 


71$: 


MOV 
- CHECK rat? ety "WAS 1 
HOV #177776, SGDBAT 


MOV JRHDB, SBDDAT 
CMP SGDDAT , SBDDAT 


BEQ 69$ 
ERROR 24 

MOV #2, SILONM 
‘CHECK THAT RHDB HAS 177 
hov #177775, SGDDAT 


MOV JRHOB, SBDDAT 
CMP SGDDAT, $BDDAT 


BEQ 71$ 
ERROR 24 


/ 
/ 


eo SHOULD HAVE OR 
: TOGETHER WITH UNIT NUMBER 
HAT IS 


‘BUT CONTAINED W 
;GIVEN IN BAD Rcs2 


-FIRST WORD TC BE READ 


77776 


;GET GOOD = 0 


;READ RHDB FOR COMPARISON 
;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


H 
‘ BRANCH IF GOOD 


“AFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
“AND WRITING A PATTERN OF FLOATING 
‘ZEROS = 177776, 177775, 127773, 177767, 
; 177757 177737, 177693" 177577 

O RHDB TO FILL 
THEN ON READING RHDB THE 


M 
‘RHDB SHOULD Pile secre 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RDB 


© alas WORD TO BE READ 
‘GET GOOD = 0 


;READ RHDB bere COMPARISON 
COMPARE EXP 
; DATA WITH BATA READ FROM 


DB 
t BRANCH IF GOOD 


-AFTER SETTING “CLR” BIT #5 
:IN RHCS2 TO INIT THE RH 
-AND WRITING A PATTERN OF FLOATING 
‘ZEROS - 177776, 177775, 177773. 177767, 
177757, 177737, 177677, 177577 

-INTO RHOB TO FILL IT 

‘THEN ON ,READING RHDB THE 

; SECOND TIM 

*RHDB SHOULD HAVE 177775 

‘BUT CONTAINED WHAT IS 

‘GIVEN IN BAD RHDB 


MAINDEC-11 
DERHAC.P11 


6171 


o 
eo 
~ 
rT 


PEPCK MMMM KMMKKKKrOrrrracac 
(DD .0.0.0 0.0 .0.0.0 6) 6000 60 DOD GD GD ~I ~I~3~9 ~9 I~ 


.O 
0 


020100 
020106 
020114 
0201ee2 


020130 
020132 


020134 


020134 
020142 
020150 
020156 


020164 
020166 


620170 


020170 
020176 


020204 
020212 


Renta 


012737 
012737 
017737 
023737 


001401 
104024 


012737 
012737 
017737 
023737 


001401 
104024 


C12737 
012737 


017737 
023737 


ro te 


SILO 


000003 
177773 


163762 
001124 


000004 
177767 


163726 
001124 


000005 
177757 


163672 
001124 


27(732) 
ST 7 { 


OO4664 
001124 


001126 
001126 


004664 
001124 


001126 
001126 


OC4664 
001124 


001126 
001126 


cPLOAT 


733: 


753: 


C10 


76 O7:55 PAGE 119 
IN LOWER BYTE) 


MOV #3, SIL ‘THIRD WORD TO BE READ 
“CHECK THAT ety "YAS 177773 
MOV #177773,$GDDAT ;GET GOOD = 0 


MOV JRHOB, SBODAT READ RHOB FOR FOR COMPARISON 
CMP SGDDAT, SBDDAT ‘COM AR 

jt WITH BATAS READ FROM 
73 :BRANCH IF GOCD 


BEQ 
ERROR 24 
;AFTER SETTING “CLR” BIT #5 

N RHCS2 TO INIT THE RH 
AND WRITING A PATTERN OF FLOATING 
‘ZEROS - 177776, 177775, 177773, 177767, 
177757 177737, 177677, 177577 

INTO RHOB TO FILL IT 
di On READING RHDB THE 


IME 
RHOB SHOULD HAVE 17777 — 
: BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHOB 


MOV ‘FOURTH WORD TO BE READ 
» CHECK that? ROB "WAS 177767 
MOV #177767, SGDDAT ;GET GOOD = 0 
MOV JRHDB,SBDDAT =; READ RHDB FOR COMPARISON 
CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED 
ADATE WITH DATA READ FROM 
75$ :BRANCH IF GOOD 


BEQ 
ERROR 24 
AFTER SETTING “CLR” BIT #5 
IN RHCS2 TO INIT THE RH 
;AND WRITING A PATTERN OF FLOATING 
RO , 177775, 177773, 177767, 
177787, 177737 177677, 177877" 


QO FIL 
ae TRE RHDB THE 
‘RH DB cH QULD_HAVE 177767 


;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


MOV -FIFTH WORD TO BE READ 
» CHECK Tat RHOB "WAS 177757 


MoV #177757, SGDDAT ;GET GOOD = 0 
MOV 9RHDB SBDDAT §;READ RHDB FOR COMPARISON 
CMP SGDDAT,SBDDAT :COMPARE EXPECTED 


‘DATA WITH DATA READ FROM 


— ee ee eee ae | eee oe 


D10 


TERRE pit ee elo ra beers 732) O9-SEP-76 07:55 PAGE 120 


DERHAC.P11 SILO (FLOATING O IN LOWER BYTE) 
ps5 a 091 275 {BRANCH IF GOOD 
psse G5nsse Poddes FEfon 34 
6230 ; AFTER SETTING elk BIT #sS 
5231 N RHCS2 TO INtT E RH 
b23¢ : AND WRITING A ATTERN OF FLOATING 
6233 -ZEROS = 177776, 177775, 177773, 177767, 
6234 7282 pon" t77gr?, 177577 
6235 
b236 i Tee READING RHDB THE 
6238 *RHDB SHOULD HAVE 177757 
6239 ‘BUT CONTAINED WHAT IS 
6240 sGIVEN IN BAD RHDB 
624] Oe0224 773: | 
a 
6244 020224 012737 ococo& OO4EEY4 MOV «SIXTH WORD TO BE READ 
B24s - CHECK raat “RHE "WAS 177 27737 
bes 020232 012737 177737 001124 MOV 7, $GDDA "GET GOOD = 0 
6248 O20240 017737 163636 O01126 MOV JRHDB,SBODAT  § ;READ RHDB FOR COMPARISON 
6249 020246 023737 501124 001126 CMP $GDDAT,S$BDDAT ;COMPARE EXPECTED 
6250 -DATA WITH DATA READ FROM 
6251 : RHDB 
6252 O20254 001401 BEQ 79 -BRANCH IF GOOD 
6253 O20256 io4oe4 ERROR 24 
6254 OF TER SETTING “CLRY 8IT BIT # 
eSep Ano our Ne A PATTERN 0 OF FLOATING 
£257 - 177776, 177775, 177773, 177767, 
625 120782 470732, 177677, ee 
625 : INTO RHOB TO FILL | 
6260 iH HEN ON READING RHDB THE 
6261 TH T 
6262 -RHDB SHOULD HAVE 177737 
6263 :BUT CONTAINED WHAT IS 
6264 -GIVEN IN BAD RHOB 
6265 O20260 795: 
SE 
6268 O20260 012737 cOD007 OO46EY MOV -SEVENTH WORD TO BE READ 
6269 - CHECK That eHOB "HAS 177677 
6270 020266 012737 177677 001124 MOV 77677 , SGDDAT GET GOOD = 0 
6272 020274 017737 163602 001126 MOV aRHDE B.SBDDAT  ;READ RHOB FOR COMPARISON 
6273 Ge0302 023737 O0112e4 901126 CMP OAT, SBDDAT ;COMPARE EXPECTED 
bers DA TA WITH DATA READ FROM 
6276 020310 O0140i BEQ 81$ : BRANCH IF GOOD 
6277 Oe03le i040e4 ERROR 24 
6276 -AFTER SETTING “CLR” BIT #5 
6279 -IN RHCSe TO INIT THE RH 
6280 ; AND WRITING A PATTERN OF FLOATING 
4 =P °ceER OS = 1777 7b, 177773. 177773, 17776-, 


af :177757, 177737, 177677, 17757? 


SERGE SLL 8 


020314 


020314 
020322 
020330 
020336 


020344 
Oe0346 


620350 


920350 
020356 


0203E4 
020372 


020400 
020402 


012737 
012737 
017737 
023737 


001401 
104024 


"012737 


053737 


017737 
023737 


000010 
177577 


163546 
001124 


000100 
005010 


163500 
001124 


cfs 2) 
© FL 


OO4664 
001124 


001126 
001126 


001124 
001124 


001126 
001126 


0 


Sis: 


835: 


~SEP-7 
OATING 0 


N LOWER BYTE) 


MOV 
“CHECK THAT. RHOB 


MOV 


MOV 
CMP 


BEQ 
ERROR 


n177e77. 


JRHOB, SBODAT 
$GDDAT, SBDDAT 


83$ 
24 


E10 


07:55 PAGE i2l 


an RHDB TO FILt IT 
THEN Dn READING RHDB THE 
: SEVEN TIM 


: RHDB SHOULD HAVE 177677 


:BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHOB 


ie WORD TO BE READ 
st}? ;GET GOOD = 0 
sREAD RHDB FOR COMPARISON 
; COMPARE EXPECTED 
DATA WITH DATA READ FROM 
‘BRANCH IF GOOD 


PN Rice TO TNT THE AH 


; AND WRITING A PATTERN OF FLOA 
177776, 177775, 1 ieee 
7, 177677, 1 


TO FILL 
;THEN ON READING RHDB THE 
‘RH DB SHOULD HAVE ht 


*BUT CONTAINED WHAT 
;GIVEN IN BAD RHOB 


TING 
72, 177787, 


“CHECK THAT RHCS2 HAS IR 

MOV #IR, SGDDAT -GET GOOD = 100 2 

BIS init $GDDAT INCLUDE UNIT NUMBER 

MOV RHCS2,$BDDAT  ;READ RHCSe FOR COMPARISON 

CMP GDDAT;$BDDAT  :COMPARE EXP 
:DATA WITH ATA READ FROM 
: RHCS2 

BEQ 8S$ *BRANCH IF GOOD 

ERROR 25 


fe ae T TING ne A Mi #5 
N RHCS2 TO INIT 

AND pelt . DATTERN MOF FLOATING 

, 177775, 177773, 177767, 

' 177677, 177377 


TO FILL I 
a Ma ON REA ins RHDB THE 
i RHC SHOULD HAVE IR 


=k 
: TOGETHER WITH ae NUMBER 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD pics 


Ar ptt nt nee re? 09-SeP-76 97:55 PAGE lee 


DERHAC. PL! SILO ? (FLOATING G IN LOWER BYTE) 
6339 o20404 ess: 
6340 sCHECK THAT RHCS1 HAS DVALRDY 
3 4 o20404 0912737 o04209 o01124 MOV BDVAIRDY,SGDDAT ;GET GOOD = 4200 
5343 020412 017737 163442 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
6344 920420 023737 001124 O01126 CMP $GDDAT.$BDDAT :COMPARE EXPECTED 
634s ‘DATA WITH DATA READ FROM 
p36 : RH HCS1 
6247, 020426 00140) BEG 97 :BRANCH IF GOOD 
6348 O20430 108026 ERROR 26 
£349 AFTER SETTING ToLR BIT #S 
6350 -IN RHCSe TO INIT THE R 
6351 “AND WRITING A PATTERN OF FLOATING 
6352 . -ZEROS - 177776, 177775, 177773, 177767, 
353 : 177757 172732, 17767, 177577 
6354 -INTO RHDB TO FILL 
63255 THEN ON READING RHE THE 
£356 -TOTAL § TIM 
257 ;RHCS1 SHOULD HAVE DVA!RDY 
6259 BUT CONTAINED WHAT IS 
6360 e | ‘GIVEN IN BAD RHCS1 
6361 o20432 975: 
6362 “CHECK THAT RHCS3 HAS 0 
6263 620422 012737 900000 901124 MOV #0, $GDDAT :GET GOOD = 0 
6365 Ue044C 017737 163466 001126 MOV JRHCS3,$BCDAT  ;READ RHCS3 FOR COMPARISON 
6366 Oeo446 023737 601124 OOllce CMP SGDDAT;$BDDAT :COMPARE EXPECTED 
£367 -DATA WITH DATA READ FROM 
£368 :RHCS3 
6369 920454 OO 14CL BEQ 99 ‘BRANCH IF GOOD 
6370 Sen4Se 0402 ERROR 27 
6371 -AFTER SETTING “CLR” BIT #5 
6372 -IN RHCS2 TO INIT THE RH > 
£373 -AND WRITING A PATTERN OF FLOATING 
6374 - ZEROS - 177776, 177775, 177773, 1777&7, 
£375 - 177757 177737, 177677, 177577 
6376 ‘INTO RHDB TO FILL IT 
£377 -T HEN ON READING RHDB THE 
£378 ‘TOTAL 8 TIMES | 
£37 ‘RHCSS SHOULD HAVE 0 
6386 ‘BUT CONTAINED WHAT IS 
£381 :GIVEN IN BAD RHCS3 
63282 O20460 99¢: 
6383 “CHECK THAT RHBA HAS O 
284 C204E0 012737 O00000 Oof1124 — MOV #0, $GDDAT :GET GOOD = 0 
63286 O20466 0177327 163372 O01126 MOV JRHBA,SBODAT § ;READ RHBA FOR COMPARISON 
6387 Oc0474 023737 091124 OOllz6 CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
6288 DATA WITH DATA READ FROM 
6390 o20so2 00140! BEG 91$ + BRANCH IF 3000 
6391 O20504 194030 ERROR 30 
£292 ;AFTER SETTING "CLR" BIT #5 
£393 -IN RHCS2 TO INIT THE 


RH 
6234 :AND WRITING A PATTERN SF FLOATING 


G10 
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DERHAC. PI] T1? SILO TEST 7 (FLOATING O IN LOWER BYTE) 
6395. :ZEROS - 177776, 177775, 177772, 177767, 
£396 177757, 177737, 177677, 77577 
£397 iN NTO RHOB TO FILL 
6398 HEN CON READING i : THE 
5299 :TOTAL 8 TIMES 
punt iRHEA SHOULD HAVE O 
Eape :BUT CONT AN RHBA 
6403 oe0S06 915: 
6404 “CHECK THAT RHBAE HAS 0 
a 020508 012737 o00000 001124 MoV #0, SGDDAT :GET GOOD = 0 
6407 020514 017737 163410 001126 MOY DRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
6408 O20S22 023737 001124 O01126 CMP SGDDAT,$BDDAT  :COMPARE EXPECTED 
S40 at: WITH DATA READ FROM 
6411 029530 00149: BEG 935 ‘BRANCH IF GOOD 
6412 020532 10403] ERROR 31 
6413 sAFTER SETTING “CLR” BIT aS 
6414 -IN RHCS2 TO INIT THE R 
641s -AND WRITING A: PATTERN OF FLOATING 
641 177776, 127775, 127773, 177767 
641 177677, 177577 
641 -T p08 TO FILL IT 
6419 TH HEN ON READING RHDB THE 
6420 ‘TOTAL § T 
6431 ‘RHBAE SHOULD HAVE 0 
b422 ‘BUT CONTAINED WHAT IS 
6403 -GIVEN IN BAD RHBAE 
6454 920534 925: 
b425 “CHECK THAT RHWC HAS O 
bYeb 020534 912737 oO0000 001124 MOV #0, SGDDAT -GET GOOD = 0 
6428 O20S42 017727 163314 001126 MOV JRHWC,$BDDAT § ;READ RHWC FOR COMPARISON 
6429 020550 023737 OO0i124 OOlles CMP SGDDAT.SBDDAT  :COMPARE EXPECTED 
430 ipa p WITH DATA READ FROM 
6432 Oe0ste ooi4el BEG 95$ ‘BRANCH IF GOOD 
6433 O20560 104032 ERROR 32 
£424 oer F os TING reek BIT as 
6435 O INIT THE RH 
6436 AND ORTTING A PATTERN OF FLOATING 
£437 -ZEROS = 177776, 177775, 177773. 177767. 
6438 : 177757 177732, 177677, 177577 
6429 - INTO RADB TO FELL 
440 : THEN ON READING RYDE THE 
E441 ‘TOTAL 8 TIMES | 
6442 *RHWC SHOULD HAVE 0 
6443 : BUT CONTAINED WHAT IS 
b444 ‘GIVEN IN BAD RHWC 
B44S Oeosee ass: 
E44E 
6447 
“es  SLELSESELAAAREAHRSLALE RSA SARA FLARE RSAALRSRAAEALHELAAELARARARLARRAAFLE 


44 ‘AT EST 20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


cher Plt tan 


RHAC.P 11 


020562 
020564 
020570 


020576 


haat 
e061 

020616 
020624 


020632 
020634 


020636 


020636 
020542 
OeCe4e 
DeNES2 


T20 


000004 
012706 
012737 


004737 


Lg? 4 
$37 


017737 
023737 


001401 
1C4006 


01270! 


012702 
010177 
000¢6i 


MACY11 27(732) 


001008 


000020 
040322 


0861 


163246 
001124 


177377 


000010 
163230 


004655 


H10 
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SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


= ie OO eR ie aR he Oe eR i aR Oe 


jitent 


65$: 


1$: 


Se ae 


EIGHT La 8 4 UBAT RN PRN OF FLOATING ZEROS PER aT 
7, 173777, 167777, 18) , 137777, 77777 
ia “baitTe nt 
h Rod2) is WAITED FOR BY A TRAP 

INETRUCTION CALLED 
T RHC Se 13 CHEC Gre VE TER 
S ra 6 nO cone oo 

CHECKED Oo HAVE 


AND NUNIT N 
HEN RHCSI. RHCS3 RHBA, RHBAE, RHWC ARE 
CKED TO'HAVE T IATE V 


ety cay cut 3 aos 


APPR 
ee Reem ee ne ee eee 


- #STACK, SP sRESET STACK 
MOV #20, a8 TSTNM -SAVE TEST NUMBER 
JSR PC, JaCLDISK GIVE RH INITIALIZE 


SETUP U NUBE 
: CLEAR RHC AND FUNCTION BITS IN RHCS1 


alae ee aakRee HAS I 


$G0087 -GET GOOD = 100 

BIS Nt DAT INCLUDE UNIT NUMBER 

SRG SEREGT SSRs emi grnerso 
DATA ETH Aa TAS READ FROM 

BEG 65S ‘BRANCH IF GOOD 

ERROR 6 


; AFTER SETTING “CLR” f ¥ 8S 
N RHCSe TO INIT THE R 
‘ang HAVING DONE NOTHING 


:RHCS2 SHOULD HAVE IR 


=100 
TO ETHER WITH UNIT NUMBER 
;BUT CONTAINED WHAT I 
‘GIVEN IN BAD RHCS2 


TO FILL IT 


PATTERN WORDS_INTO_RHD tn f DbER ay BYTE 


iP 4 re (3 chon! NG ZERO 
77377, 1 shee 175777, 173777, 167777, 


187777, 137777, (77 
hoy #177277.R GETTING, READY TO FLOAT ZEROS 
MOV :COUNTER -8 DATA WORDS 
MOV Ri SRB ; WRITE In TO RHOB 
SEC ‘SET CARRY 


naINDEG=11-DERHAG-A CTO teSt G CPLORTING ZEROS 1H UPPER BYTES 


6507 D20654 006 104 ROL Ri GET ZERO ONE BIT LEFT 
eens GSsee8 BHTSeS BeEOC«*SS BRANCH TF°8 NOT DONE 

6510 - WAIT FOR OR BIT IN RHCS2 REGISTER TO SET 

5511 Oe0b6e 10441 WAT TRAP TO_WAIT.T SUBROUTINE 

6512 Oeo664 o0407 RHCS2 ‘AND WAIT FOR OR BIT iN 

6513 Oc066& o00200 OR :RHCS2 REGISTE 

6514 A -IF ERROR OCCURS HERE 

6515 -IT MEANS “OR™ 

6516 : ‘SET FOR THE FULL COUNT 

6517 ‘DOWN OF THE WAIT.T SUBROUTINE 
6518 ‘THIS TIME IS APPROXIMAT 

6519 ‘LARGER THAN SOO MILLISECONDS 
6520 . 

6521 

6522 ) -CHECK THAT RHCS2 HAS OR 

6523 020570 012737 oO00200 001124 MOV #OR, SGDDAT ‘GET GOOD = 200 

b5e8 020676 053737 OOSOIO OO01124 BIS UNIT. SGDDAT ‘INCLUDE UNIT NUMBER 

6526 020704 017737 163160 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
6527 O2e0712 023727 001124 O01126 CMP SGDDAT.$BDDAT :COMPARE EXP 

528 ; DAT Q WITH DATA READ FROM 

6530 020720 £01491 BEG 67 : BRANCH IF GOOD 

6531 Oe07e2e 104023 : ERROR 23 xa 

6532 sAFTER SETTING “CLR” BIT #5 
6533 -IN RHCS2 TO INIT TH HE RH 

6534 -AND HAVING WRIT TEN A 

6535 ‘PATTERN OF FLOATING ZEROS IN UPPER BYTE 
6536 177377, 176777, 175777 173777, 
£537 3187777, 157772, 137777. 7777 
653 O RHDB TO FILL IT 

£535 RN Nese. SHBULD HAVE OR 

654] TOGETHER WITH UNIT NUMBER 
6542 ‘BUT CONTAINED WHAT IS 

6543 -GIVEN IN BAD RHCSe 

6544 020724 675: 

ESus 

ree 

beug 020724 012737 CO000l oc4664 MOV SILON opi SRST WORD TO BE READ 

654 - CHECK That HOB "WAS 1 737 

550 020732 012737 177377 001124 Mov #177377, scocAT. -GET GOOD = 0 

& 740 017737 1631 : 01126 MOV RHOB.$ -READ RHDB FOR COMPARISON 

pees BSpoue 55599 ABTIEE pblisé Che «SCOT SBbDAT COMPARE ExPee TED 

6sS4 -DATA WITH DATA READ FROM 

peep 754 001401 EQ 9 ;RHOR IF GOOD 

Fees pseee? O0i4Ol FEgoR 8c 

6558 SAFTER SETTING "CLR" BIT 8S 
6559 -IN RHCSe TO INIT TH 

E560 ‘AND WRITING A PATTERN OF FLOATING 
6561 -7EROS IN UPPER BYTE 


Ete '177377, 176777, 175777, 173777, 


J10 


ne aes 514 -DERHAG SA MACY11 27(732) O9-SEP-76 07:55 PAGE 126 


Ac. PL} T20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
5563 : 167777 157777 137777, 27777 
6564 ‘INTO RHDB T 
E565 ; THEN_ ON BEADING. RHDB THE 
S566 IRST TIME 
5567 ‘RHDB SHOULD HAVE 177377 
6568 ‘BUT CONTAINED WHAT IS 
6569 ‘GIVEN IN BAD RHDE 
6570 O20760 69S: 
be52 
6573 020760 0127327 oo000e OO4eEY ~~ MOV «SECOND WORD TO BE READ 
6574 - CHECK rat ats "WAS 176777 
578 020766 012737 176777 001124 MOV #176777, SGDDAT ;GET GOOD = 0 
6577 020774 017737 163102 001126 MOV JRHDB, SBDDAT -READ RHDB FOR COMPARISON 
6578 021002 0203737 001124 001126 CMP SGDDAT,SBODAT ;COMPARE EXPECTED 
$573 ATE WITH DATA READ FROM 
6581 021910 001401 BEQ 71 “BRANCH IF GOOD 
6582 O2i0le 104034 ERROR 34 
6583 sAFTER SETTING ToLR” BIT #5 
6584 IN N RHCS2 TO INIT THE RH 
£585 ' AND WRITING PATTERN OF FLOATING 
Pegs cen 33.) Hees, 178777, 173777, 
6588 1 g9779" 157777, 137277, 277277 
6589 : - INTO RHOB T 
6590 : THEN ON READING LRHDB THE 
659} ‘SECOND TIME 
6592 *RHDB SHOULD HAVE 176777 
6593 ‘BUT CONTAINED WHAT IS 
6594 ‘GIVEN IN BAD RHOB 
6595 021014 71S: 
3 
6598 021014 012737 o00003 oOD4e6E4 MOV -THIRD WORD TO BE READ 
£599 - CHECK raat? ats "Was 175777 
B00 021022 0127327 175777 001124 MOV 8175777,$GDDAT ;GET GOOD = 0 
6602 021030 017737 183046 001126 MOV JRHOB, SBDDAT :READ RHDB FOR COMPARISON 
6603 Oci036 023737 O0112e4% O01126 CMP SGDDAT,$BDDAT ;COMPARE EXPECTED 
oe sDATA WITH DATA READ FROM 
6606 O21044 001401 BEQ 73% ‘BRANCH IF GOOD 

021046 104024 ERROR 24 


6607 

£608 AFTER SETTING “CLR” BIT #5 

609 ‘IN RHCS2 TO INIT THE R 

6610 ;AND WRITING A PATTERN OF FLOATING 
bbl ;ZEROS IN UPPER BYTE 

6613 1167777) 187777, 137777, 15595. 


6614 - INTO RHOB TO FILL rT 

e615 id HEN. ON READING RHDB THE 
6617 Hos, SHOUL D HAVE 175777 
E618 CONTAINED WHAT IS 


MRINDEC-11-DERHAC-A 
DERHAC.P11 T20 


0210SC 


021050 
021056 
021064 
021072 


021100 
021102 


021° J4 


0° i104 
z21lle 


021120 
021126 


021140 


021140 


‘ 


’ 
vw 


012737 
012737 
017737 
023737 


001' Jl 
104 .24 


012737 
012737 
017737 
023737 


001401 
104024 


MACY11 27(732) 


000004 
173777 


16301e 
001124 


000005 
167777 


162756 
001124 


004664 
001124 


001126 
001126 


004664 
001124 


001126 
001126 


Cie737 00006 OO4EE4 


a 
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SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


738: 


7S$: 


773: 


MOV 
MOV 


MOV 
CMP 


BEQ 
ERROR 


MOV 
- CHECK Tat AhDg "Was 167777 


-CHECK THAT RHDB HAS 157777 


;GIVEN IN BAD RHOB 


#4, SILONM lie WORD TO BE READ 


“CHECK THAT RHDB HAS 173777 


;GET GOOD = 0 


;sREAD RHDB FOR COMPARISON 
COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHDB 
75$ ‘BRANCH IF GOOD 


24 
-AFTER SETTING TLR" BIT ge 
© IN RHCS2 TO INIT 
“AND WR TING Q DATTERN OF FLOATING 
-ZEROS IN UPPER BYTE 
: 177377, 176777, 175777, 173777, 
3167772, 157777, 137777, 77777 
- INTO RAD FIL 
iTH HEN ON READING “RUDE THE 


URTH TIM : 
RHOB SHOULD HAVE. 173777 
;BUT CONTAINED WHAT IS 
GIVEN IN BAD RHDB 


#173777, SGODAT 


JRHDB, SBDDAT 
$GDDAT , SBDDAT 


‘FIFTH WORD TO BE READ 


MOV #167777,SGDDAT ;GET GOOD = 0 
MOV JRHDB, SBDDAT :READ RHD ER COMPARISON 
CMP SCObAT. $BDDAT CoM Pane 
sDAT Q aTTH MOBTAS READ FROM 
BEG 775 ‘BRANCH IF GOOD 
ERROR 24 
‘AFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 
“AND WRITING A PATTERN OF FLOATING 
-ZEROS IN UPPER BYT 
:177377, 176777, 175777, 173777, 
167777, 157777. 137777, 77777 
‘INTO RHDB TO FILL IT 
: THEN On READING RHDB THE 
‘FIFTH TIME 
:RH B HOU 0D HAVE 167777 
CONTAINED WHAT IS 
‘IVER IN BAD RHOB 
MOV #6, SILONM -SIXTH WORD TO BE READ 


SEANRE PLL Oe ¥29 


021146 


021154 
021162 


021174 


021174 
021202 
021210 
Oel2l6 


021224 
02 leet 


021230 


021230 
021236 


0ele44 
021252 


012737 
017737 
023737 


091401 
104024 


012737 
012737 
017737 
023737 


001401 
1040e4 


012737 
012737 


017737 
023737 


SILO teST G CFLORTING 26 
187777 001124 


l6e72e 001126 
001124 001126 


009007 
137777 


162666 
001124 


000010 
077777 


162632 
001124 


OO4664 
001124 


001126 
001126 


OO46E4 
001124 


001126 
001126 


79$: 


81S: 


0S ff UPPER BYTE) 


MOV #157777, S$GDDAT 
MOV JRHDB, SBDDAT 
CMP $GDDAT , $BDDAT 
BEQ 79 

ERROR 24 

MOV #7, SILONM 
“CHECK THAT RHDB HAS 
MOV #137777, scpbAt 
MOV JRHDB, SBDDAT 
CMP SGDDAT, $BDDAT 

BEQ 81 

ERROR 24 


MOV , SILONM 
“CHECK THAT RHDB HAS 77777 


MOY 


MOV 
CMP 


48. 
#77777, $GDDAT 


JRHDB, SBDDAT 
SGDDAT, $BDDAT 


;GET GOOD = 0 


;READ RHDS FOR COMPARISON 
;COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


>RH 
‘BRANCH IF GOOD 


ie Ra ae 


ING aTTERN OF FLOATING 


133 oie i 700, Mt 


THEN : READING HOB THE 
‘SIXTH TIM 

‘RHDB SHOULD HAVE 157777 
-BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHDB 


sSEVENTH WORD TO BE READ 
GET GOOD = 0 
;READ RHDB FOR COMPARISON 


COMPARE EXPECTED 
ial A WITH DATA READ FROM 


137777 


‘BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
: IN RHCS2 TO INIT THE RH 
OER WRITING A oe OF FLOATING 


IN 
155932), aie Hf 777, 173777, 
$468 te9979" 137777, 
-INTO RHDB TO FILL IT 
‘THEN ON N READING RHOB THE 
;SEV EN 
: RHDB SHOULD HAVE 137777 


eyeRCtn ane Rte 7S 


‘EIGHTH WORD TO BE READ 


;GET GOOD = 0 
;READ RHDB Ai. COMPARISON 
: COMPAR 


CTED 
sDATA NETH DA DATA READ FROM 


—_—- - oo -« ~«+ «© - - _—-- 


= ——_——— 


a 
- ——_— —e —— ——_—— re 
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DERHAC.P11 T20 SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 
ry iSe2 Soka Eiko — 
£36 SOETER SETTING “CLR” BIT #5 
6734 -IN RHCS2 TO T 
5735 :AND WRITING "PATTERN OF FLOATING 
6736 -ZEROS IN UPPER BYTE 
6737 177377, 176777, 175777, 173777, 
6738 : 167777, 157772, 137777, 77777 
6739 INTO RHDB TO FILL IT 
e740 THEN On "READING RHOB THE 
6742 Ri BB CH SHOU Ki HAVE 77777 
6743 ‘BUT CONTAINED WHAT IS 
6744 ‘GIVEN IN BAD RHDB 
6745 021264 93S: 
6746 
6747 : 
Poug 021264 012737 o00100 001124 are. ae "NR R.scooaT “* -GET GOOD = 100 
750 O21272 053737 OOS010 O011°04 BIS NTT: SERBDAT : INCLUDE: UNIT NUMBER 
pres GEIS lor UGTTSY SOLLGE «=| Oe REGRTSSESGAT Scene Govpomiso 
bee RE Ta Dat ABTA READ FROM 
6756 021314 O01401 BEQ 85$ pad IF GOOD 
6757 O21316 iod4oes ERROR 25 
6758 3 j AFTER SETTING “OLR BIT #5 
6759 IN RHCS2 10 INIT THE RH 
6760 “AND WRITING A PATTERN OF FLOATING 
6761 :ZEROS IN UPPER BYTE 
6762 177377, 176777, 175777, 173777, 
6763 167777, 157777, 137777, 77777 
6764 IN NTO RHDB TO FILL IT 
6765 HEN ON READING RHDB THE 
6766 “TOTAL 8 TIM 
6767 bt SHOULD HAVE IR 
6768 =100 
6769 : TOGETHER WITH UNIT NUMBER, 
6770 ‘BUT CONTAINED WHAT IS 
6771 “GIVEN IN BAD RHCS2 
6772 021320 g5$: 
6773 ‘CHECK THAT RHCS1 HAS DVA!RDY 
e778 021320 012737 OO4200 001124 Mov #DVA'RDY,SGDDAT ;GET GOOD = 4200 
sore G2IGGs Guarar OSiies GELS |= Sie «SESSA Somer SSE SEDRSGmsoN 
6778 fie RTH DAT BATA READ FROM 
6780 O21342 O01 75 ‘BRANCH IF GOOD 
6781 St 44 page 6 EER OR Ff 
6782 sAFTER SETTING our BIT #5 
6783 | -IN RHCS2 TO ae RH 
£784 ; AND WRITING A ATTEBN OF FLOATING 
6795 Tonos In : YT 


- -- 2 —_ SS Rr ee ee ee ee me —- « _—«*-<«za ——-— 


A Pt ton 


DERHAC .P 


021346 
021346 
ee: 

1362 


021370 
021372 


Del4ze2 
Oz 1422 


MPCY11 27(732) 


012737 O00000 001124 


017737 16e55e O0112e6 
023737 OO0l1e4% OO11le6 


001401 
104027 


012737 oo0000 001124 


017737 162456 001126 
023737 OO0lle4% OOlleb 


012737 00000 001124 
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T20 S1..0 TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


87$: 


89s: 


31$: 


; 167777 57777 137777, 27777 
:FNTO BAD 19 FALL 
READ l 
OTAL rk 
i : SHOULD WAVE DVA!RDY 


;BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS1 


“CHECK THAT RHCS3 HAS O 
MOV #0, SGDDAT -GET GOOD = 0 


MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
;DAT A WITH DATA READ FROM 


BEQ =sisé3G i BRANCH IF GOOD 
ERROR 27 
;AFTER SETTING "CLR" BIT #5 
IN RHCS2 TO INIT THE RH 
‘AND WRITING A PATTERN OF FLOATING 
‘ZEROS IN UPPER BYT 
;177377, 176777, 175777, 173777, 
137777, 77777 


INTO RHDB TO FILL IT 
; THEN ON READING RHDB THE 


8 
Bure SHOULD HAVE 0 
T CONT 
‘GIVEN IN BAD RHUsa 


“CHECK THAT RHBA HAS 9 
MOV #0, SGDDAT ;GET GOOD = 0 


MOV JRHBA,SBDDAT  ;READ RHBA FOR COMPARISON 
CMP $GDDAT,SBDDAT  ;COMPARE EXPECTED 
pt WITH DATA READ FROM 
318 ‘BRANCH IF GOOD 
-AFTER SETTING TLR” BIT #5 
; IN RHCSe TO IN IT THE 
*AND WRITING A PATTERN OF FLOATING 
-ZEROS IN UPPER BYTE 
sige 176777, 1277? 173777, 


oe Oke 


ies ay; Is 
sCHECK THAT RHBAE HAS . 


hoy 80, SGDDAT :GET GOOD = 0 


yh 


MAINDEC-11-DERHAC-A 
DERHAC.P11 T20 


021430 017737 
021436 023737 


021444 


001401 


02 1446 _ 124031 


021450 
021450 
021456 
021464 


021472 
021474 


021476 


012737 
017737 
023737 


001401 
104032 


Bll 
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SILO TEST 8 (FLOATING ZEROS IN UPPER BYTE) 


162474 001126 MOV JRHBAE , SBODAT 
001124 O011e6 CMP $GDDAT , $BDDAT 
BEQ 93$ 
ERROR 31 


935: 
“CHECK THAT RHWC HAS 0 
000000 001124 MOV #0, SGDDAT 


162400 001126 MOV JRHWC , SSODAT 
001124 O01126 CMP SGDDAT, SBDDAT 


BEQ 955 
ERROR 32 


CLEAR ALL DEVICE REGIST 


READ ANY DEVICE REGISTER 
3 MCPE 


ee ee ee 


;READ RHBHE FOR COMPARISON 
COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


:RH 
BRANCH IF GOOD 


a Ay SETTING “CLR” BIT #5 
N RHCS2_TO INIT THE RH 


+ AND WRITING A PATTERN OF FLOATING 
;ZEROS IN UPPER BYTE 
3177377, 176777, 175777, 173777, 


167777, 157777, 137777, 77777 
-INTO RHOB TO FILL 

-THEN ON READING RHDB THE 
‘TOTAL 8 TIMES 

*RHBAE SHOULD HAVE O 

‘BUT CONTAINED WHAT IS 

‘GIVEN IN BAD RHBAE 


;GET GOOD = 0 


sREAD RHWC FOR COMPARISON 
sCOMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHWC 
‘BRANCH IF GOOD 


:FTER SETTING “CLR” BIT #5 
N RHCS2 TO INIT THE RH 

AND WRITING A PATTERN OF FLOATING 

-ZEROS IN UPPER BYT 

177377, 176777, 175777, 173777, 

3167772, 157777. 137777, 77777 

: INTO RHDB TO FILL 

-THEN ON READING RHDB THE 

‘TOTAL 9 TIM 

*RHWC SHOULD HAVE O 

: BUT CONTAINED WHAT IS 

:GIVEN IN BAD RHWC 


; EERE L ERLE AE EERE RRL ERLE R EEE K EERE LEA EEK RAE EL ERE ELE EERE 
TEST 21 RHCS1 - MCPE BIT #13 (PARITY LINE = Q) 


AN RH CLEAR (SET BIT #5 IN RHCS2) IS GIVE” TO 
a7) RHER1 (ERROR REGISTER 1) IS CHECKED TO HAVE 
SET “PAT” (BIT #4 IN RHCSe) TO ed PARITY CHECKING 


HERE 


READ AND ae RHCS1 TO CONTAIN Sc (BIT #15) 


(BIT #13) 
WRITE "1" INTO “TRE (BIT #14 IN RHCS1) 
READ RHCS1 SC, MCPE, Alf ROY SHOULD BE SET 


MAINDEC-11-DERHAC-A 
DERHAC.P11 Tel 


021476 
021500 
021504 


021512 


021516 


021524 
021532 


021540 
021542 
021544 
021544 


021552 
021560 
021566 


021574 
021576 


021500 


000004 
012706 
012737 


004737 


012737 
017737 
023737 


001401 
104033 


052777 


012737 
017737 
023737 


001401 
104034 
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RHCS1 - 


001000 
000021 


040322 


000000 


162344 
001124 


000020 


000000 


162310 
001124 


004656 


001124 


001126 
001126 


162316 


001124 


001126 
001icé 


Cll 
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MCPE BIT #13 (PARITY LINE = 0) 


ur: ie i Oe ae He 


Tel: 


655: 


&7$: 


GIVE AN RH C +” : LB 7 _o #S IN RHCS2) | 
CHECK RHCS1 . 
CHECK RHCS2 10 HAVE ONLY IR AND_UNIT NUMBER | 
CH Gar tee. RHCS3, RHBA, RHBAE, RHWC TO HAVE APPROPIATE 


 PROREDEDEESDERDEUDEODENEEROSOSEEEORGOEROEDENENONEOREDEDEUEESOS 


SCOP | 
MOV #STACK, SP sRESET STACK | 
MOV #21, 8TSTNM -SAVE TEST NUMBER : 
PC, J#CLDISK -GIVE RH INITIALIZE | 

‘SETUP UNIT NUBER | 
*CLEAR RHWC AND FUNCTION BITS IN RHCS 


JSR 


“CHECK THAT RHER1 HAS O 
MOV #0, SGDDAT -GET GOOD = 0 


MOV Q@RHER1,SBDDAT  ;READ RHERi FOR COMPARISON 
CMP SGDDAT , SBDDAT ; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


‘ RHER 
‘BRANCH IF GOOD 


;AFTER SETTING ht BIT #15 
sIN RHCS2 TO INIT THE RH 

AND HAVING ah NOTHING ELSE 
;RHER1 SHOULD HAVE O 

‘BUT CONTAINED WHAT IS 

;GIVEN IN BAD RHER 


- - —_ —_— -— —fe oe ee oe em 


BEQ 65$ 
ERROR 33 


;TO INVERT Oe ote gan CHECKING ON THE CONTROL BUS 


-“BAT" BIT 
615 #PAT, JRHCS2 -SET PAT = 20 IN RHCS2 
; CHECK THAT RHER1 HAS 0 
MOV 0, $GDDAT :GET GOOD = 0 


READ RHER1 FOR COMPARISON 
‘COMPARE EXPECTED 

DATA WITH DATA READ FROM 

675 ‘BRANCH IF GOOD | 


BEQ 
ERROR 34 
sAFTER CLEARING THE RH AND 
E BY R A 


JRHER1 , SBDDAT 
SGDDAT . SBDDAT 


MOV 
CMP 


GIVEN IN BAD RHER1 


sHAVING READ RHER] WITH WRONG PARITY BEING 


g 
7009 
7010 


: 


11-DERHAC-A# 
il Tel 


GeiSO0 
021606 
021614 


021622 
021624 


021626 


021626 


021634 


021642 
021650 


021656 
Oe 1660 


021662 


012737 
017737 
023737 


001401 
104035 


012777 


012737 
017737 
023737 


001401 
104036 
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004200 001124 


162246 001126 
001124 OO0ileéb 


049000 


104200 


l622le 
001124 


l622e4 


001124 


00: 126 
001126 


Oeligee Ol2777 OOOO4O 162200 
Celé79 013777 005010 l&el7e 
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RHCS!1 - MCPE BIT #13 (PARITY LINE = 0) 


693: 


71$: 


sCHECKED MCPE - BIT #13 AND SC BIT #15 IN RHCS1 SHOULD BE SET 


“CHECK THAT RHCS1 HAS 4200 
MOV #4200,$GDDAT ;GET GOOD = 124200 


MOV Q@RHCS1,SBDDAT ;READ RHCS1 FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


HCS1 
BEQ 69$ ‘ BRANCH IF GOCD 
ERROR 35 
sAFTER CLEARING THE RH AND 
;DEVICE BY RH CLEAR 


:RHCSI SHOULD HAVE 4200 
=124200 

BUT CONTAINED WHAT IS 

-GIVEN IN BAD RHCS1 


:WRITE A ONE INTO TRE (RHCS1 - BIT #14) 
- THIS SHOULD NOT CLEAR MCPE OR SC 
MOV 8TRE,dJRHCS1 -WRITE "1" INTO TRE IN RHCS1 


“CHECK THAT RHCS1 HAS 104200 
MOV #104200,$GDDAT ;GET GOOD = 124200 


MOV JRHCS1,$BDDAT ;READ RHCS1 FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 

:DATA WITH DATA READ FROM 
71$ :BRANCH IF GOOD 


BEG 

ERROR 36 
sAFTER CLEARING THE RH AND 
; DEVICE SPStSTERS BY AN 


A 
: RHER WAS CHECKED TO HAVE 
{RONG PARITY eon WAS 


0 
; RHCS SHOULD HAVE 104200 


=124 
BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCSi 


-NOW ERRORS WILL BE CLEARED BY RH CLEAR 
SET "CLR" BIT #S IN RH 

hay #CLR, JRHCS2 -CLEAR BY RH INIT 

MOY UNIT. JRHCS2 ‘REINSTATE UNIT NUMSER © 


_— -_: —_—_—_——— — *-—=s- <= ————_— «= - > = _o-« 


MRINDEC-11-DERHAC-A 
OERHAC P11 Tel 


021676 


Je1724 


021724 
021732 


021740 
021746 


021754 
021756 


021760 


oe 


Ole737 


017737 
023737 
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RHCS1 - MCPE BIT #13 (PARITY LINE = QO) 


;CHECK THAT RHCS1 HAS DVA!RDY 


004200 001124 MOV #DVA'RDY,SGDDAT ;GET GCOD = 4200 
162150 001126 MOV JRHCS1,$BDDAT * ;READ RHCS1 FOR COMPARISON 
001124 o01126 CMP SGDDAT , SBDDAT ; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
‘RHCS1 
BEQ 735 ‘BRANCH IF GOCD 
ERROR 37 
“AFTER CLEARING THE RH AND 
‘DEVICE REGISTERS BY AN 
‘RH CLEAR 
RUE WAS CHECKED TO HAVE 
: WRONG PARITY CHECKING WAS 
-SET BY “PAT” BIT IN RHCSe 
*RHERI WAS READ TO 
*MCPE AND SC _IN RHC 
jON WRITING "1" INTO TRE 
-THEN SETTING “CLR” IN RHCS1 
;RHCS1 SHOULD HAVE DVA!RDY 
‘BUT CONTAINED WHAT IS 
oi :GIVEN IN BAD RHCS1 
-CHECK THAT RHCS2 HAS IR 
000100 001124 MOV #IR, SGDDAT GET G = 100 
005010 O01124 BIS UNIT, SGDDAT : FACLUDE OUNI NUMBER 
162124 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
001124 O01126 CMP SGDDAT,$BDDAT ;COMPARE EXPECTED 


‘DATA WITH DATA READ FROM 
sRHCS2 
75$ ;BRANCH IF GOOD 


BEQ 

ERROR 40 
sAFTER CLEARING THE RH AND 
DEVICE REGISTERS BY AN 


-RH CLEAR 
‘RHER1 WAS CHECKED TO HAVE 
; ZERO 


‘WRONG PARITY CHECKING WAS 
SET BY "PAT" BIT IN RHCS2 
:RHER1 WAS READ TO SET 
iNGPE AND SC IN RHCS! 
N WRITING "1" INTO TRE 
HEN SETTING “CLRY IN RHCS1 
RHCS2 SHOULD HAVE IR 


=100 

TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD Rlcse 


sCHECK THAT Kay HAS 0 


75$: 


021769 0127327 cco000 o01124 Mov #0, SGDDAT :GET GOOD = 0 


_——— et ee eee - 


_—— — <a 4 eee 


F1l 
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DERHAC.P!1 T21 RHCS1 - MCPE BIT #13 (PARITY LINE = 0) 
7067 
7068 021766 017737 162140 901126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
7069 021774 023737 601124 901126 CMP SGDDAT.$BDDAT  ;COMPARE EXPECTED 
7070 :DA ATA WITH DATA READ FROM 
iw 
7072 Oe2002 0014901 BEQ 77 : BRANCH IF GOOD 
7072 022004 104041 ERROR 41 
7074 ‘AFTER CLEARING THE RH AND 
7075 ‘DEVICE REGISTERS BY AN 
7976 -RH CLEAR 
7077 *RHERI WAS CHECKED TO HAVE 
7078 : ZERO 
70793 ‘WRONG PARITY CHECKING WAS 
7089 "PAT" BIT IN RHCS2 
7981 *RHERI WAS READ TO CET 
7082 ; AND SC IN RHCS1 
7983 | -ON WRITING “1" INTO TRE 
7084 : THEN SETTING “cR” IN RHCS1 
7085 *RHCS3 SHOULD HAVE O 
7086 ‘BUT CONTAINED SHAT IS 
7087 ‘GIVEN IN BAD RHCS3 
7088 O22006 773: 
7089 -CHECK THAT RHBA HAS 0 
7930 o22008 012737 900000 001124 MOV #0, SGDDAT -GET GOOD = 0 
7092 022014 017737 162044 O01126 MOV JRHBA,SBDDAT ;READ RHBA FOR COMPARISON 
7093 Oec022 023737 001124 901126 CMP SGDDAT,SBDDAT  ;COMPARE EXPEC 
7034 ‘DATA WITH DATA READ FROM 
7096 022030 001401 BEQ 79 : BRANCH IF GOOD 
7097 Oe2e03e 104042 ERROR 42 
7098 “AFTER CLEARING THE RH AND 
7099—i«<k: ‘DEVICE REGISTERS BY AN 
7100 a *RH CLEA 
7101 zs ; RHER1 WAS CHECKED TO HAVE 
7193 WRONG PARITY CHECKING WAS 
7104 . ‘SET BY "PAT" BIT IN RHCSe 
7105 -RHER1 WAS READ TO SET 
7106 -MCPE AND SC 
7107 -ON WRITING "1" 
7106 ; THEN SETTING “CLR” IN RHCS1 
7109 -RHBA SHOULD HAVE 0 
7110 | iBUT cONTAT D WHAT IS 
7111 VEN IN RHBA 
7lle 022034 79S: 
at: Gm -CHECK THAT RHBAE HAS 0 
iis 022034 012737 op0090 o01124 MOV #0, SGDDAT :GET GOOD = 0 
7116 Oee042 017737 ib20b2 001126 MOV JRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
7117 Oe2e0S0 023737 O81124% 001126 CMP $CGDDAT, SBDDAT ; COMPARE EXPECTED 
7118 ;DATA WITH DATA READ FROM 
7120 O22056 001401 BEG 81$ ‘BRANCH IF GOOD 
7121 Ce2060 104042 ERROR 43 
7122 -AFTER CLEARING THE RH AND 


wae pi tet 
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DERHA T2l RHCS1 - MCPE BIT #13 (PARITY LINE = QO) 
?lée3 -DEVICE REGISTERS BY AN 
7124 : RH LEAR 
‘les : RHERI WAS CHECKED TO HAVE 
figs : ZERO 
fst *WRONG PARITY CHECKING WAS 
712 ;SET BY “PAT” BIT IN RHCS2 
7129 -RHERI] WAS READ TO SET 
7130 : MCPE AND SC IN RHCS1 
7131 : ON WRITING “1" INTO TRE 
‘132 : THEN N SETTING “CLR” IN RHCS1 
7133 -RH BAE SHOULD HAV 
7134 ‘ BUT CONTAINED WHAT IS 
7135 : GIVEN IN BAD RHBAE 
7136 O22bbe B1$: 
7137 i ; “CHECK THAT RHWC HAS 0 
ois O2e2e0se 012737 000009 Ouiies MOV #0, SGDDAT ;GET GOOD = 9 
7140 O22070 O17737 161766 001126 MOV ARHWC . SBDDAT *READ RHWC FOR COMPARISON 
7141 QO2207& 023737 OB81ie% OO01126 CMP SGDDAT , $BDDAT : COMPARE EXPECTED 
ots ue WITH DATA READ FROM 
7144 QO22104 O01401 BEG 83$ : BRANCH IF GOOD 
ot ip 022106 id4044 ERROR 44 
71 sAFTER CLEARING THE RH AND 
7147 : DEVICE REGISTERS BY AN 
7148 : RH LEAR 
ote ; RHER1 WAS CHECKED TO HAVE 
7151 ARON PoBALS CHECKING WAS 
7152 BIT IN RHCS2 
7153 :RHER1 Was AREAD TO SET 
71S4 >MCPE_AND SC IN RHCS1 
7iSS -ON WRITING “1” I 
7156 * THEN Seth hs ato IN RHCS! 
7157 *RHWO SHOULD HAVE 0 
7158 : BUT CONTAINED WHAT IS 
7189 : GIVEN IN BAD RHWC 
7160 O22e110 833: 
He 
f 
7163 Fee ae gage “Origa ye Rr BR ae apr 
oiee TEST 22 RHCS1 - MCPE BIT #13 (PARITY LINE = 
716E - AN RH CLEAR (SET BIT #S IN RHCS2) IS GIVEN TO CLEAR 
7167 -% ALL DEVICE eet! ERS 
7168 4 WRITE A ONE INTO DISK ADDRESS REGISTER (RHDA) 
71E5 - (IN TAPE DRIVES CALLED REGIST 
7170 . SET “PAT” (RHCS2 BIT #4) THIS ELL INVERT THE PARITY CHECKING 
7171 .# READ RHDA AND COMPARE IT HA 
7172 : THIS READING SHOULD SET SC, MCPE IN RHCS1 
7173 * 2 CHECK RHCS1 AVE ONL 
ote : ae genes RHCS3, RHBA, RHBAE, RHWC TO HAVE APPROPIATE 
e * 
7 gag Gaeaatnepsanenne eee ane a Rap RSP ntipe 


7176 
7177 022119 oooco4 tree: 


7i78 Oeg2lle 012706 601000 ay HSTACK, SP RESET STACK 
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DERHAC.F1] T22 RHCS! - MCPE BIT #13 (PARITY LINE = 

7173 022116 012737 o0002e2 ocOo4EsE MOV #22, J8TSTNM “SAVE TEST NUMBER 
7181 O22124 oc4737 oO40322 ISR PC, JHCLDISK :GIVE RH INITIALIZE 
7182 -SETUP UNIT NUBER 
rigs :CLEAR RHWC AND FUNCTION BITS IN RHCS1 
7195 ;WRITE A ONE INTO RHDA - DISK ADDRESS REGISTER 
7186 i THIS REGISTER IN TAPE DRIVES IS CALLED “RHFC FRAME COUNT” 
7187 AFTER WRITING THIS "1" THEN ON READING THIS REGISTER 
7188 STHE CONTROL PARITY LINE WILL HAVE ZERO 
7189 022130 012777 900001 161730 MOV #81T0, JRHDA :WRITE "1" INTO RHDA 
7130 -IN TAPE DRIVES CALLED RHFC 
7192 . -INVERT THE PARITY TO BE CHECKED BY SETTING “PAT” BIT #4 IN RHCS2 
7133 022136 052777 00020 1617284 BIS _ #PAT,aRHCS2 =; SET PAT IN RHCSe 
f 
7195 
7196 -SHECK THAT RHDA HAS BITO 
7137 g22144 012737 000001 001124 MOV “BITO,$GODAT  ;GET GOOD = 1 
7199 OeelS2 017737 i61719 901126 MOV JRHDA,SBDDAT  ;READ RHDA FOR OMPARISON 
7300 Oe2160 023737 O01124 OOilse cP = §GDDAt, SBDDAT i COMPARE EX ATED 
7201 DATA arth BATA READ FROM 
7203 O22166 of140! | BEG 7 ‘BRANCH IF GOOD 
7204 Oeel70 194045 ERROR 45 
7205 “AFTER AN RH CLEAR ” 
7206 be ‘WAS WRITTEN INTO ApDRESS REGISTER 
7207 ; : (FRAME COUNT IN TAPE) 
7208 - -PAT IN RHCSe WAS SET 
7209 THEN THE ADDRESS REGISTER 
7210 :WAS READ 
fell : RHA SHOULD HAVE BITO 
7213 ‘BUT CONTAINED WHAT IS 
7214 : -GIVEN IN BAD RHODA 
rel 02217 65S: 
7217 ;CHECK THAT RHCS1 HAS 4200 
7218 022172 012737 o04200 001124 MOV #4200,$GDDAT  ;GET GOOD = 124000 
7220 022200 017737 161654 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
7221 OeccOe 022727 O9lle4 01126 CMP $GDDAT.$BDDAT COMPARE EXPECTED 
eee :DA TA WITH DATA READ FROM 
7224 022214 O014D1 BEG 675 ‘BRANCH IF GOOD 
7225 Gecci& 104046 ERROR 46 
7226 -AFTER AN RH CLEAR ™ 
7227 ‘WAS WRITTEN INTO apoRESS REGISTER 
7208 (FRAME COUNT IN TAPE) 
7229 ; PAT IN RHCS2 WAS SET 
7230 j THEN THE ADDRESS REGISTER 
723i WAS READ BAC 
7e3e ; RHCS 1 SHOULD HAVE 4200 

£33 


7234 ‘BUT CONTRHINED WHAT IS 


NAINDEC=1 


DERH 


Pll 


Qe22e0 


Oeee20 
Oeeee’ 


022234 
Qee2e42 


Oee2es0 
CeeeSe 


022254 
O2eeS4 
Oeeetbe 
Q22270 


022276 
022300 


022302 
022302 
022319 
022316 


Oee324 
Qee326 


} “DERHAY=2 


063737 
017737 
023737 


001401 
104047 


012737 
017737 
023737 


001401 
194050 


012737 


017737 
023737 


Yll 27(732) 
Si - MCP 


Q00000 001124 


161644 O01126 
001124 O01126 


O00000 001124 


161550 901126 
001124 OO0lleb 


09- 


BIT #1 


67$: 


693: 


71$: 


Ill 
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(PARITY LINE = 1) 
-GIVEN IN BAD RHCS1 
- CHECK THAT, RUCSE HAS IR!PAT 
MOV 1. SGQOAT -GET GOOD = 120 
BIS iNT. reat : INCLUDE UNIT NUMBER 
NOY gcse SB008T sREAQ RHCSE FOR COMPARISON 
SRP TR ER Reso ren 
BEQ 69 ‘BRANCH IF GOOD 
ERROR 47 
-AFTER AN RH CLEAR "1" 
-WAS WRITTEN INTO ADDRESS REGISTER 
(FRAME COUNT IN TAPE) 
‘PAT IN RHCS2 WAS SET 
; THEN, THE ADDRESS REGISTER 
ese BACK 
Se Shot HAVE IR!PAT 
ToGe rer wars aay tareen 
A YVEN IN AN RHCS2 
“CHECK THAT RHCS3 HAS 0 
MOV #0, SGDDAT -GET GOOD = 0 
MOV JRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT . SBDDAT ; COMPARE EXPECTED 
; DATE WITH DATA READ FROM 
BEG 71$ : BRANCH IF GOOD 
ope nes -AFTER AN RH ; AR 
: WAS WRITTEN o” ADDRESS REGISTER 
(FRAME COUNT IN 
: PAT IN RHCS2 WAS "ST 
; THEN THE ADDRESS REGISTER 
WAS READ BAC 
‘RHCS3 SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS3 


;CHECK THAT RHBA HAS 0 
MOV #0, SGDDAT ;GET GOOD = 0 
;READ RHBA FOR COMPARISON 


; COMPARE: EXPECTED 
:DATA WITH DATA READ FROM 


: RHBA 
73$ :BRANCH IF GOOD 


BEG 
ERROR 51 
;sAFTER AN RH CLEAR “1" 
:WAS WRITTEN INTO a..! RESS REGISTER 
: (FRAME COUNT IN TAPE) 
;PAT IN RHCS2 WAS SET 


JRHBA , $BDDAT 


MOV 
$GDDAT, $BDDAT 


CMP 


sal SF tai 
DERHAC. P11 Tee 


022330 
022330 
022336 
022344 


022352 
022354 


022356 
022356 
022364 
022372 


022400 
O2e40e 


022404 


01273? 
017737 
023737 


001401 
1040Se 


012737 
017737 
023737 


001401 
104053 
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000000 O011e4 


161566 OO011le6 
001124 O01126 


o0ocoo O011e4 


161472 001126 
001124 O011e6 


Jil 
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RHCS1 - MCPE BIT #13 (PARITY LINE = 1) 


733: 


753: 


773: 


; THEN THE ADDRESS REGISTER 
;WAS READ BAC 


*RHBA SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHBA 


“CHECK THAT RHBAE HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 


MOV JRHBAE,SBDDAT ##;READ RHBAE FCR COMPARISON 
CMP SGDDAT,$8DDAT  ;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHBA 
75$ :BRANCH IF GOOD 


BEQ 

ERROR Se 
sAFTER AN RH CLEAR “1” 
:WAS WRITTEN he ADDRESS REGISTER 
; (FRAME FONT Ns 


THEN THE RODRESS REGISTER 
: WAS READ BACK 

*RHBAE SHOULD HAVE 0 

:BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHBAE 


“CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT -GET GOOD = 0 


MOV JRHWC , SBDDAT sREAD RHWC FOR COMPARISON 
CMP SGDDAT , SBDDAT ; COMPARE EXPECTED 

spa WITH DATA READ FROM 
BEG 77$ t BRANCH IF GOOD 
ERROR 53 


sAFTER AN RH CLEAR 
-WAS WRITTEN INTO ADDRESS REGISTER 
:(FRAME COUNT IN TAPE) 


iF RHCS2 ET 

THEN THE ADDRESS REGISTER 
; WAS READ 

sRHWC SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


+ LERGHEE REL REE REREG REALE E RELEASE ERA RE RRA RA EL AL EAA ERA RA SRALAAERERE 


—" 


: RTEST 23 TEST DUPLICATED Al6 (RHCS1 BIT #8) 
. CLEAR THE-SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
. MOVE 400 (ONE INTO Al6G) IN RHCS1 
: READ RHCSI*.T0 CONTAIN 600 (BIT #8 AND RDY) 
:# REQD RHBAE TO CONTAIN "1" (BIT #0 HIGH) 
; MOVE 0 INTO RHBAE (WRITING O INTO RHBAE BIT #0) 


Sd 
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HAC. P11 T23 TEST DUPLICATED AS (RHCS1 BIT #9) 
7347 + % READ RHBAE TO CONTAIN 0 
7348 :* READ RHCS1 TO CONTAIN ONLY RDY (BIT #@ IN RHCS1 IS ZERO) 
7350 | :# 
7 2 5 RRRRERARERLERE REEL EE LEER EERE EEL EEE RE EE REEL REEL ELE EL EEE ELL EES 
7352 022404 oooo04 +6723: SCOPE 
7353 022406 912706 001090 MOV uSTACK SP ‘RESET STACK 
7358 O22412 012737 000023 oo4Ess MOV #23, a8TST -SAVE TEST NUMBER 
7356 O2e420 004737 9o40322 ISR PC, JHCLDISK ; GIVE RH INITTALIZE 
7357 ‘ ‘SETUP UNIT NUBE 
7358 . : CLEAR RAC AND FUNCTION BITS IN RHCS! 
7360 -WRITE “1 INTO ALG IN RHCS1 
7361 022424 012777 OUD4YOO 161426 MOV #A16,JRHCS1 -MOVE 400 INTO RHCSI! 
7363 
7364 
7365 ‘CHECK THAT RHCS1 HAS ALG! DVA!RDY 
7366 022432 012737 oO4600 001124 MOV #All6: OVA!RDY, SGDDAT -GET GOOD = 4600 
7368 O22440 017737 161414 001126 MOV JRHCS1,2S9DAT  ;READ RHCS1 FOR COMPARISON 
7369 O22446 023737 001124 001126 CMP SGDDAT;$BDIAT :COMPARE EXPECTED 
7370 ere WITH DATA READ FROM 
7372 022454 001401 EQ 655 ‘BRANCH IF GOOD 
7379 «Oee4e6 «104054 ERgoR a 
7374 -AFTER SETTING “CLR” BIT #5 
7375 -IN RHCS2 TO INIT THE RH 
7376 *Al6 WAS WRITTEN INTO RHCS1 
7377 *RHCS1 WAS R 
7378 iRHCSI SHOULD HAVE ALG&!IDVAIRDY 
7380 ‘BUT CONTAINED WHAT IS 
7381 -GIVEN IN BAD RHCS! 
7382 O22460 65S: 
7383 
7384 
7385 ;CHECK THAT RHBAE HAS BITO 
7386 022460 012737 oO00001 001124 MOV #BITO,$GDDAT § ;GET GOOD = 1 
7388 O22466 017737 161436 001126 MOV JRHBAE,SBDDAT * ;READ RHBAE FOR COMPARISON 
7389 022474 022737 001124 001126 CMP SGDDAT.$BDDAT  ;COMPARE EXPECTED 
7330 ;DAT A WITH DATA READ FROM 
7392 022502 O01401 BEG 675 t BRANCH IF GOOD 
7393 G2es04 104055 ERROR 5S 
7394 -AFTER SETTING “CLR” BIT #5 
7395 *IN RHCSe TO INIT THE RH 
7396 ‘ALG HAS WRITTEN INTO RHCS1 
7397 ;RHCS1 Wi AS READ 
7398 ‘THEN RHBAE WAS READ 
7393 i RHBRE SHOULD HAVE BITO 
7401 ‘BUT CONTAINED WHAT IS 


7402 :GIVEN IN BAD RHBAE 


OE 


v-11 
Pll 


O2eS06 
022506 
O2eSle 
022520 
022526 


022534 
022536 


O2254C 


022540 


O2eS4e 
OeeSS4 


O2eSb2 
O2eS&4 


O2eS&5 


“CER 


005077 


012737 
017737 
023737 


001401 
104056 


012737 
017737 
023737 


001401 
104057 


TEST DuBL IcAteD 


161416 


000000 O001lle4 


161404 001126 
001124 O011e6 


004200 001124 


161306 QO01126 
00112e4% 001126 
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Al& (RHCS1 BIT #8) 


673: 


69S: 


71$: 


ine MOVE aay © RHBAE WAAL TE ZERO IN RH ‘ A #0) 


MOV 


MOV 
CMP 


BEQ 
ERROR 


sCHECK THAT RHBAE HAS 0 
#0, SGDDAT 


JRHBAE , SBDDAT 
SGDDAT , SBDDAT 


69% 
56 


INTO 


;GET GOOD = 0 


sREAD RHBAE FCR COMPARISON 
; COMPARE EXPECTED 

spate WITH DATA READ FROM 
fed IF GOOD 


Hh Rice 10 Tw LF hes aS 
6 WAS uRITTEN INTO RHCS1 


eee WAS REA 
N ZERO READ WRITTEN 


a 0 RHBAE 

*ON READING 

; RHBAE SHOULD HA 

*BUT CONTAINED WHAT IS 


‘GIVEN IN BAD RHBAE 


sCHECK THAT RHCS1 HAS DVAIRDY 
#DVA!RDY,SGDDAT ;GET GOOD = 4200 


MOV 


MOV 
CMP 


BEQ 
ERROR 


JRHCS1, SBODAT 
$GODAT , SBDDAT 


71$ 
57 


;sREAD RHCS1 ory COMPARISON 
: COMPARE EXP 
; DATA WITH DATA READ FROM 


t BRANCH IF GOOD 


sAFTER SETTING “CLR” a! #5 
IN RHCS2 TO_INIT THE R 
;Al6 WAS WRITTEN INTO RHCS1 
sRHCS1 WAS READ 
;RHBAE WAS READ 
; THEN ZERO WAS WRITTEN 
AN Q_RHBA 
HBAE WAS — 
: ON READING RHCS1 
; RHC SHOULD HAVE DVA!RDY 


‘BUT CONTAINED WHAT IS 
: GIVEN IN BAD RHCS1 


: Te a eet DUPLICATED Al? (RHCS] BIT #9) 
TEST 24 


TEST DUPLICATED Al? (RHCS1 BIT #9) 


——_— ——— —o —— 


bah Ys * 5 orgs 7 
DERHAC . P 


022566 
022570 
022574 


O2e602 


022606 


022614 
022622 
022630 


022636 
022640 


O2eb4e 


O2e64e 


Te4 


000004 
012706 
012737 


004737 
012777 


012737 
017737 
023737 


001401 
104060 


012737 


017737 
023737 


01401 
04061 
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001000 
000024 


040322 


001000 


005200 


161232 
001124 


OO4ES6 


161244 


001124 


001126 
001126 


000002 001124 


061124 


001126 
001126 
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TEST OUPLICATED Al7 (RHCS1 BIT #9) 


Whe ie a OC a ae Oe Oe Oe abe 


oT24 


653: 


CLEAR THE SUBSYSTEM BY - CONTROLLER CLEAR (RHCS2 BIT #5) 
MOVE 400 (ONE INTO Al7)_IN RH 

READ RHCSI TO CONTAIN 1200 (BIT #9 AND RDY) 

READ RHBAE TO CONTAIN “e” (BIT #1 HIGH) 


MOVE 0 INTO RHBAE (WRITING 0 INTO RHBAE BIT #1) 
READ RHBAE TO CONTAIN 2 
READ RHCS1 TO CONTAIN ONLY RDY (BIT #9 IN RHCS1 IS ZERO) 


onseveyesnynuuusneeceveesenunsneceeneeevanusssennereenenne 
SC 


;sRESET_ STACK 
;SAVE TEST NUMBER 


;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 
‘CLEAR RHWC AND FUNCTION BITS IN wen 


-WRITE “1 INTO Al7 IN RHCS1 
MOV #A17,QRHCS1 sMOVE 1200 INTO RHCS1 


E 
MOV wSTACK, SP 
MOV #24, Ja TSTNM 


JSR PC, d#CLDISK 


‘CHECK THAT RHCS1 HAS A17!DVAIRDY 
MOV #A17!DVAIRDY, SGDDAT 


MOV JRHCS1,$BDDAT  ;READ RHCS1 Ra... COMPARISON 


CMP SGDDAT , SBDDAT ; COMPARE EXP 
spate WITH DATA READ FROM 
65$ : BRANCH IF GOOD 


BEQ 

ERROR 60 
;OFTER SETTZNG “CLA” BLT 45 
Al? UAE WRITTEN INTO RHCS! 


;RHCS) WAS READ 
; RHC 1 SHOULD HAVE A17!DVA!RDY 


=46,0 
‘gut CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


‘CHECK THAT RHBAE HAS BIT! 
MOV #BIT1,$GDDAT  ;GET GOOD = 2 


MOV eRe  SEDDAT i COMPARE EXPEC pate * iaameiiaaa 


CMP DDA RE EXP 

co A WITH DATA READ FROM 
BEQ 67$ BRANCH IF GOOD 
ERROR 61 


;RFTER SETTING “CLR” BIT 85 


-GET GOCD = 4600 : 


: 


022670 
022670 
022674 
022702 
022710 


022716 
022720 


O2e7ee 


O227ee 
022730 
022736 


022744 
022746 


11-DERHAC-A 
ll 


T24 


005077 


012737 
017737 
023737 


0014C1 
104062 


012737 


017737 
023737 


001401 
104063 
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TEST DUPLICATED Al7 (RHCS1 BIT #9) 


161234 


001124 


001126 
001126 


000000 


l6le2e 
001124 


004200 001124 


161124 001126 
0011e% OO0lieb 


67$: 

éLR 
-CHECK THAT RHBAE HAS 0 

MOV #0, SGDDAT 
MOV JRHBAE , SBDDAT 
CMP $GDDAT. SBDDAT 
BEQ 695 
ERROR 62 

6393: 


a THAT RHCS1 HAS DVA!RDY 


#DVA! RDY, SGDDAT 


MOV JRHCS1 , SBDDAT 
CMP SGDDAT , SBDDAT 
BEQ 71$ 
ERROR 63 


AL ARE AR 
es ee SHOULD HPS REPO 


;=c 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHBAE 


RHCS1 


sNOW MOVE SRY RHBAE (WRITING O INTO RHBAE BIT #0) 


;sWRITE ZERO INTO RHBAE 


;GET GOOD = 0 


;sREAD RHBAE FOR COMPARISON 
;COMPARE EXPECTED 
;DATA WITH DATA READ FROM 


: BRANCH IF GOOD 
sAFTER SETTING “CLR” BIT #5 


-IN RHCSe TO INIT THE RH 
:AL7 -. gr PEN INTO RHCS1 


; RHCS1 
‘HORE WAS READ 

‘THEN ZERO WAS WRITTEN 

‘INTO RHB 

{ON READIN : 
RHBAE SHOULD 0 


LD HAVE 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHBAE 


;GET GOOD = 4200 

sREAD RHCS1 FOR COMPARISON 
; COMPARE EXPECTED 

PATA WITH DATA READ FROM 


i BRANCH IF GOOD 


TER SETTING “CLA BIT #5 Se 


ie ry WRITTEN INTO RHCSI es 
Si WAS READ ee 


: RHC 
; RHBAE tae READ 
THEN ete WAS WRITTEN 


Sree abc Rats: 
sRHCS1 


SHOULD HAVE OVA! ROY 


HAC. P11 T24 TEST DUPLICATED Ai? (RHCS1 BIT #9) 
7571 

757 ‘at SPONTA , D WHAT IS 

757 VEN IN RHCS1 

7574 022750 713: 

7575 | 

7576 

7577 © SLELASFAKELESESAE RES LSEAELAALALELARAAALASAREAASAALAAEHERESHRRELLEESLESE 
7378 SATEST 25 TEST DUPLICATED IE (RHCS1 BIT #6) 

f 

7580 % CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
7581 : MOVE 100 (ONE INTO IE) IN 

7582 : READ RHCS1 TO CONTAIN 300 ( (BIT #6 AND RDY) 

7583 i READ RHCS3 TO CONTAIN "100" (BIT #6 HIGH) 

7585 :% 

7586 : ¥ MOVE 0 INTO RHCS3 (WRITING O INTO RHCS3 BIT #6) 

7587 : x READ RHCS3 TO CONTAIN 1 

7588 if READ RHCS1 TO CONTAIN ONLY RDY (BIT #6 IN RHCS1 IS ZERO) 
7590 ; 

7591 > SEFKESKEESS SLASH ASSLELA HERA SAA LELASERLAAASLERLELERAALLALELARE LAKES 
7592 Oe2750 oo0004 +8725: SCO 
7593 022752 012706 901000 MOV #STACK, SP -RESET STACK 
7534 022756 012737 o00025 oco4eSE MOV #25, J#TSTNM -SAVE TEST NUMBER 
7596 022764 004737 o40322 JSR PC, J#CLDISK -GIVE RH INITIALIZE 
7597 -SETUP UNIT* NUBER 
7538 : CLEAR RHC AND FUNCTION BITS IN RHCS! 
7600 -WRITE "1" INTO IE IN RHCS1 
7601 622770 912777 OO0100 1610be AOV #IE, JRHCS1 -MOVE 100 INTO RHCS1 
7603 

7604 
7605 ‘CHECK THAT RHCS1 HAS IE!DVA!RDY 
7606 022776 012737 OO4300 001124 MOV #IE!DVA!RDY, SGDDAT -GET GOOD = 4300 
7608 023004 017737 161050 001126 MOV JRHCS1,SBDDAT  ;READ RHCS1 af OR COMPARISON 
7609 023012 023737 001124 001126 CMP SGDDAT,SBDDAT :COMPARE EXP 
2610 DAT A WITH BATA READ FROM 
7612 023020 o0140! BEQ 6S$ t BRANCH IF GOOD 
7613 O23022 104064 FRROR 64 

7614 sAFTER SETTING “CLR” BIT #5 

7615 :IN RHCS2 TO INIT THE RH 

76:6 -TE WAS WRITTEN INTO RHCS1 

7617 -RHCS1 WA 

7b18 ;RH HCS1 SHOULD HAVE IE!DVA!RDY 
7620 ‘BUT CONTAINED WHAT IS 

7621 ‘GIVEN IN BAD RHCS1 

7b22 022024 SS: 

7b23 

7624 7 

7625 ‘CHECK THAT RHCS3 HAS IE 


7626 022024 (012737 O00100 001124 HOV #IE, SGDDAT :GET GOOD = 


MAINDEC-11-DERHAC-A 
DERHAC.P11 Tes 


023032 
023040 


023046 
023050 


023052 
023052 
023056 
023064 
023072 


023100 
023102 


023104 


623104 
C2312 
023120 


023126 
023230 


017737 
023737 


001401 
104065 


005077 


012737 
017737 
023737 


001401 
104066 


012737 
017737 
023737 


001401 
104067 


Cle 
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TEST DUPLICATED IE (RHCS1 BIT #6) 


161054 


009006 001124 


161042 001126 
0011e4% O01126 


004200 301124 


160742 001126 
0011e4% 001126 


673: 


693: 


MOV JRHCS3,SBDDAT ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT , SBDDAT ; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


| ‘RHCS 
67$ ‘BRANCH IF GOOD 


BEQ 

ERROR 65 
sAFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
;TE WAS ag BL. INTO RHCS1 
-RHCS1_W 
: THEN RHCES WAS READ 
; RHCS3 SHOULD HAVE IE 


=] 
‘BUT CONTAINED WHAT IS 
;GIVEN IN BRD RHCS3 


‘NOW MOVE O INTC RHCS3 (W 


RITING 0 INTO RHCS3 BIT #1) 
LR JRHCS3 -WRITE ZERO IN 


NTO RHCS3 
‘CHECK THAT RHCS3 HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 
MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT,$BDDAT :COMPARE EXPECTED 

sare WITH DATA READ FROM 
BEQ 69$ ‘BRANCH IF GOOD 
ERROR 66 

‘AFTER SETTING “CLR” BIT #5 


N RHCS2 TO INIT THE RH 
ite WA ues READ INTO RHCS1 


GIVEN IN BAD RHCS3 


“CHECK THAT RHCS1 HAS DVA!RDY 
Mov BDVA!RDY,SGDDAT ;GET GOOD = 4200 


MOV JRHCS1,$BDDAT ;READ RHCS1 ett COMPARISON 
CMP $GDDAT,$BDDAT  ;COMPARE EXP 

see, MET BATA READ FRCM 
71$ :BRANCH IF GOOD 


BEQ 

ERROR 67 
sAFTER SETTING “CLR” BIT #5 
;IN RHCS2 TO INIT THE RH 


—_- —— ee re . ~~ -_— ~“* - 


- a -_ —=s——— ore = 


DERHA 


023132 


023132 


023146 


023152 
023160 


023210 


023216 


023224 
022232 


MAINDEC-11-DERHAC-A 
C.Pll Tes 


000004 
012706 
012737 


004737 


052777 


012737 


017737 
023737 


001000 
000026 


040322 


177766 
004210 


177777 
161440 


000001 
000001 


L44061 


160630 
001124 


OO4656 


160702 
160676 


004644 


160650 
160642 


001124 


001126 
001126 


Dle 
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RHCS1 BIT #6) 


C2 
hes 
Ww 


;1E WAS wal ien INTO RHCS1 

‘RHCS1 WAS READ 

;RHCS3_WAS READ 

; TH N ZERO WAS WRITTEN 
RHCS3 


N 
RHCS2 WAS READ 
ON READING RHCS1 
; RH HF, SHOULD HAVE DVA!RDY 


‘BUT CONTAINED WHAT IS 
716 :GIVEN IN BAD RHCS1 


ee eeeee darer char tat ee ne 
T 26 RHCS1 PROGRAM ERROR (PGE BIT #10) 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT 4S) 
SET UP FOR A 10 WORD W 
SET “GO” TRHCEI BIT #0) TWICE IN TWO SUCCESSIVE 
INSTRUCTION NS 

HIS SHOULD SET, SC AND TRE IN RHCS1 
ah PGE SHOULD Be SET In RHCSE 


MBER OF WORDS AR LORGe ENOUGH SO THAT AFTER 
ONE “BIS” INSTRUCTION TO SET “GO” IN RHCS 
THERE IS SUFFICIENT TIME TO GIVE ANOTHER “BIS” INSTRUCTION 
TO SET “GO” BEFORE THE FIRST “GO” HAS TIME TO COMPLETE 


epteyeeeneesnseteneentneaennntnees 
0 


éT26 
MOV aSTA sRESET STACK 
MOV #26, SSteTNN -SAVE TEST NUMBER 


JSR PC ,a#CLDISK sGIVE RH INITIALIZE 
;SETUP UNIT NUBER 
‘CLEAR RHWC AND FUNCTION BITS IN RHCS! 


-SET UP RH FOR A 10 WORD WRITE 
MOV #10. JRHWC sWORD COUNT REGISTER=10 
MOV RFROM,@RHBA —;BUS ADDRESS REGISTER=WRITBUF 
; WRITE 10 WNORDS’ FROM “WRFEROM” INTO 
WHAT EVER RH REV IGE 1S AVATLABL E 


Oi i Die OC Oe ae Dic ae Oke ae ie 38c oe: 


hv -DO NOT GIVE GO IN COMMAND ROUTINE 
JSR RO, 1 NOHIND -GO TO DO COMMAND 

WRID ;WRITE DATA 
BIS #G0, JRHCS1 °S t 
BIS #G0, JRHCS1 -SET GO WITHOUT TIME TO COMPLET LAST GC 


sCHECK THAT RHCS1 HAS SC!DVA!TRE!61 


MOY ¥SC!DVA'TRE!61,$GDDAT  ;GET GOOD = 144000 
MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
CMP $GDDAT . $B8DDAT 


; COMPARE EXPEC 
‘DATA WITH DATA READ FROM 


MBA INDEC-11-DERHAC-A 
DERHAC.Pil Teé 


De3e4C 
023242 


023244 


023244 
0e3eSe 


O838e6 


023274 
023276 


023300 
023300 


OS3319 


023322 
023324 


023326 


091401 
104070 


012737 
053737 


035737 


Paces 
194071 


012737 
025737 


001401 
104072 


MACY 11 732) 
RHC 


002200 O011e4 
005019 001124 


beiiey O0118e 


002000 001124 


giies G01 i8e 


le 
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Y11l_ 27¢ 
S1 PROGRAM ERROR (PGE BIT #10) 


*RHCS1 
‘BRANCH IF GOOD 
ON RIC = th tn Ty aa #5 
ni N ti S CE IVE 
8S. ving 1 at a FOR 
FIRST 0 ¢ 
AUC teu NAVE gc! OVA! TRE!S! 


‘BUT "CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS1 


ECK THAT RHCS2 HAS PGE!OR 


#PGE'OR,$GDDAT ;GET GOOD = 2000 - 
UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 


§ SRGRFRT SRR Eps gems 
DATA WITH paTA READ FROM 
sRHCS2 

‘BRANCH IF GOOD 

; AFTER SETTING + tn , h. #5 


BEQ 65$ 
ERROR 70 


in<— zr 


MPLETE 
: RHC SHOULD HAVE BCE: OR 
: TOGE THER WITH UNIT NUMBER 
: BUT CONTAINED WHAT IS 
GIVEN IN BAD RHCS2 


“CHECK THAT RHCS3 HAS DBL 
MOV #DBL, SGDDAT :GET GOOD = 0 


MOY scobaT »SBDDAT ;READ RHCS3 FOR COMPARISON 

CMP GDDAT;$BDDAT ;COMPARE EXPECTED 

‘DATA WITH DATA READ FROM 

RUC IF GOOD 

sAFTER SETTING “CLR™ BIT #& 
TO_INIT T 


NRHCSE TO INIT TH 
;AND GIVING THQ SUCCESSIVE 


BEQ 69% 
ERROR 72 


693: 


: ELEREK EARLE ERLE RE EERE LE ERE EERE ERE HEAR HERA EAR EERE EEA ER RARER EE ES 
tKTEST 27 RHCS2 - BUS ADDRESS INHIBIT BIT #3 


Fle 
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DERHAC.P1! 127 RHCS2 - BUS ADDRESS INHIBIT BIT #3 
7795 
77% 1% CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #6) 
7797 i T UP A 2 WORD WRITE FROM A BUFFER TAGGED “WRFROM” 
7798 .# SET BUS ADDRESS INHIBIT RHCSe BIT #3 “BAI” 
7799 : THE END OF WR 
780¢ : RHCS TO HAVE ONLY RDY BND COMMAND 
7801 : i RHCS2 TO HAVE BAI 
7802 : i RHCS3 TO HAVE 0 
7803 : i RHBA TO HAVE ADDRESS OF “WRFROM” 
7804 i RHBAE AND RHWC TO HAVE ZEROS 
7806 : NOW SET UP READ FOR THE SAME DATA WITH 
7807 : % [ Serf 19 READ INTO @ BUFFER TAGGED “REINTO” 
7808 : a arte REA 
7809 . RHCS1 TO MAVE ONLY RDY AND COMMAND 
7810 : RHC? TO HAVE BAI 
7811 : RHCS3 TO HAVE 0 
7812 : x RHBA TO HAVE ADDRESS OF “REINTO” 
7213 : RHBAE AND RHWC TO HAVE ZERO 
7814 i DATA IN REINTO BUFFER IS CHECKED WITH DATA IN 
7815 i WRFROM BUFFER 
7815  FKKSSSESSELSAAASKSRKSHAA SESH SASEAARESAASAASAASASLAELELEAFLAAAALFLTS 
7817 023326 oo0004 té127: SCOPE 
7818 023330 012706 091000 nV HSTACK, SP sRESET STACK 
7819 623334 012737 900027 oso46Ess MOV #27, J8TSTNM ‘SAVE TEST NUMBER 
7821 O23242 004737 9o40322 ISR PC, J#CLDISK -GIVE RH INITIALIZE 
7B22 :SETUP UNIT NUBER 
78e3 :CLEAR RHWC AND FUNCTION BITS IN. RHCS! 
_ 7825 -SET UP 10 WORD WRITE FROM BUFFER TAGGED “WRFROM” 
7826 -WITH BAI IN RHCS2 
7827 O23346 012777 177766 160506 MOV #-10. , JRHWC ;WORD COUNT REGISTER=10 
7828 023354 052777 O00010 189506 BIS sBAT series ‘BUS ADDRESS INHIBIT IN RHCS2 
7829 023362 012777 oO4210 160474 MOV #WRFROM,JRHBA :BUS ADDRESS REGISTER=HRF ROM 
7830 023370 O04077 161244 JSR RO, JCOMND :GO TO DO COMMAND 
Peal 023374 oOo4is4 WRIDAT :WRITE DATA 
7833 
7824 “CHECK THAT RHCS1 HAS DVA!IRDY!60 
7835 023376 012737 oOO4260 001124 MOV #OVA!RDY'60, $GDDAT :GET GOOD = 4252 
7837 O23404 017727 160450 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
7838 022412 923737 001124 001126 CMP SGDDAT.S$BDDAT  :COMPARE EXPECTED 
7839 spare MiTh DATA READ FROM 
7841 023420 001401 BEQ 6S$ -BRANCH IF GOOD 
ree C2342e 10407 ERROR 76 Ps ast “net abe ah 
# 
7944 A BRces T Nr? THE Ai 
745 # 2 WORD RITE WAS DONE 
746 ‘WITH BAI BIT IN RHCS2 SET 
7847 ‘AT END OF WRITE 
eve ; RHCS1 SHOULD HAVE DVAIRDY!6£ 


=4e 
7650 ‘BUT CONTAINED WHAT IS 


MBINDEC-11-DERHAC-A 
DERHAC.P 11 Te? 


023424 


BS 352 


023440 
023446 


023460 
023460 
023466 
023474 


02350e 
023594 


De3S0& 
023506 
023514 
023522 


023530 
Je3S3e 


012737 


917737 
023737 


MACY11 &7(732) 


O90000 901124 


if044Q QQ! 
OOl1e4 1 


s 
4 
1 
« 


eb 
ef 


094210 op1124 


160344 O01126 
OOile4Y# OCil26 


Gle 


O9-SEP-76 07:SS PAGE 149 
RHCS2 - BUS ADDRESS INHIBIT BIT &3 


S$: 


673: 


69$: 


;GIVEN IN BAD RHCS1 


sCHECK THAT RHCS¢ HAS BAITIR 


MOV #BAI!'IR, $GDDAT 
BIS UNIT, $GDDAT 

MOV JRHCS2, SBDDAT 
CMP $GDDAT . SBDDAT 


SEQ 67$ 
ERROR 77 


“CHECK THAT RHCS3 HAS 0 
MOV 80, SGDDAT 


MOV JRHCS3. SBDDAT 


CMP SGDDAT . SBDDAT ; COMPARE EXP 
-DATA WITH BAA READ FROM 
-RHCS3 

BEG 593 ‘BRANCH IF GOOD 

ERROR 100 : 
:AFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
-A@ 2 WORD WRITE WAS DONE 
‘WITH BAI BIT IN RHCS2 SET 
-AT END OF WRITE 
;RHCS3 SHOULD 
‘BUT CONTAINED WHAT IS 
“GIVEN IN BAD RHCS3 

“CHECK THAT RHBA HAS WRFROM 

MOV BWRFROM,SGDDAT ;GET GOOD = 0 

MOV JRHBA,SBDDAT  § ;READ RHBA FOR COMPARISON 

CMP $GDDAT,$BDDAT  :COMPARE EX 


BEQ ‘1l$ 
ERROR 101 


;GET GOOD = 10 
; INCLUDE UNIT NUMBER 


;sREAD RHCS2 FOR COMPARISON 
; COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


: RHCS2 
BRANCH IF GOOD 


ON Fe SETTING “CLR” a aS 
N RHCS2 TO INIT THE 


ff ait fy" BN 
RHCS2 SHOULD TABVE BAI'IR 
TOGETHER WITH UNIT NUMBER 


;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCSe2 


;GET GOOD = 0 


; READ se ae COMPARISON 


PECTED 
; DAT A WITH DATA READ FROM 
BRANCH IF GOOD 
sAFTER SETTING “CLR” of aS 
31 THE RH 
RD WRIT DONE 
WITH BAI at) arte RHCS2 SET 


AT END OF 
: RHBA SHOULD HAVE WRF ROM 


MRINDEC-11-DERHAC-A 
OERHKC Fil Te? 


Je3534 
023534 
023542 
023550 


023556 
023560 


Oe 2562 
023562 
023570 
023576 


023604 
023656 


023E10 


Ole737 
017737 
023737 


001401 
i04i0e 


Cle737 
017737 
023737 


00140) 
104102 


Ceséi9 900004 


MACY11 27(732) 


Hle 
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RHCS= - BUS ADDRESS INHIBIT GIT a3 


000000 901124 


16036e OClicé 
JO1i124% O0ilee 


000000 001124 


160266 901125 
O0ile4 OClleé 


oe. 


;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHBA 


718: 
“CHECK THAT RHBAE HAS 2 
MOV #0, SGDDAT -GET GOOD = 0 
MOV JRHBAE,SBODAT  ;READ RHBAE FOR COMPARISON 
CMP $GDDAT,$BDDAT  :COMPARE EXPECTED 
DATA WITH DATA READ FROM 
BEQ 73$ :BRANCH IF GOOD 
ERROR 102 
‘AFTER SETTING “SLR” BIT #5 
+, RHCSe 19 INIT HE RH 
aa 8 a WAS DONE 
WI H re el IN RHCS2 SET 
- RHBAE SHOULD VE 0 
-BUT CONTAINED WHAT IS 
nis ‘GIVEN IN BAD RHSAE 
“CHECK THAT RHWC HAS O 
MOV 80, SGDDAT -GET GOOD = 2 
MOV JRHWC,SBDDAT  § ;READ RHWC FOR COMPARISON 
CMP $GDDAT,$BDDAT  :COMPARE EXP 
; DAT Q WITH OTA READ FROM 
BEQ 75$ : BRANCH IF GOOD 
ERROR 103 
-AFTER SETTING “OLR BIT aS 
‘IN RHCS2 TO INIT THE RH 
-A 2 WORD WRITE WAS DONE 
;WITH BAI BIT IN RHCS2 SET 
T END OF WRITE 
 RHWC SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
a :GIVEN IN BAD RHWC 


Fe yaaa eg tr yet ag eg so 9 ot am eaneapeerten 
- TEST 30 RHSCe MDPE BIT #8 AND RHCS3 IPCKO BIT #0 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 SIT #f) 
SET IPCKO (RHCS3 BIT #0) 


SC IN RHCS! 

READ RHDB ONCE TMTe SHOULD. SET MDPE (RHCS2 8! T #9 

CHECK RH CS1 FOR ROY (BIT #7), TRE (BIT #14), SC ( 
RHCS2 BIT #5) IS cIve en 

al ERRORS ARE CLEAR 

CHECK RHCS1, RHCSS. RHCS3, RHBA, RHBAE, RHWC 


jp RERRRARERLEREEREREEREEREREREREEREREERAREES ER EARERERARLE EERE EELS 
rsT30: SCOPE 


} 
BIT #15) 


saeiaalediaatatadiaas 


ee ee @e @2e @2@e @8 @2e¢ @* @s 


Ile 


MAINDEC=11-DERHAC-A NACYI127(732) O9-SEP-76 07:55, PAGE 151 
SERHAC-PII +36 RHEC “BPE af ai 5 RHCS3 IPCKO BI 
7963 923612 012706 001000 MOV aSTACK, SP sRESET STACK 
robs C2361 Ole737 900030 OONESE MOV  #30,aeTSTNM = ; SAVE TEST NUMBER 
7966 023624 904737 040322 ISR PC, JNCLDISK GIVE RH INITIALIZE 
POE, ‘SETUP UNIT NUBER 
7968 ‘CLEAR RHWC AND FUNCTION giTs IN RHCS] 
7369 023630 012737 O00000 o04E&e2 MOV #0, IP ‘IPCK BIT NO. FOR PRINTOUT 
i 
7971 023636 052777 OC0001 160266 BIS WIPCKO, JRHCS3 ;SET IPCKO IN RHCS3-BIT #0 
7972 23644 905037 9o04210 CLR WREROM’ -WRITE ZERO INTO LOCATION 
7973 023650 013777 OO4210 160224 MOV WRFROM,QRHDB § :WRITE ZEROS INTO RHDG ONCE 
2975 CHECK THAT RHCS1 HAS SC!TRE!DVA!RDY 
rae 023656 012737 144200 001124 MOV wSC!TRE'DVAIRDY,$GDDAT ;GET GOOD = 1442C0 
f 
7978 023664 017737 160170 001126 MOV JRHCS1,S$BDDAT  ;READ RHCS1 FOR COMPARISON 
7375 023672 023727 901124 Olle CMP $GDDAT: SBDDAT  CORPARE EXPECTED 
7980 :DATA WITH DATA READ FROM 
7985 023700 O014D! EO 65 ‘BRANCH IF GOOD 
7983 Ge2702 194140 ERROR 140 
7984 AFTER THING "CLR BIT #5 
re Beta lA te 
7987 ‘ZEROS WERE MOVED INTO RHDB 
798 ;RHCS1_SHOULD HAVE SC! TRE!GVA!RDY 
7990 ‘BUT CONTAINED WHAT IS 
799) ‘GIVEN IN BAD RHCS1 
7996 023704 65S: 
7933 704 917737 160172 o0120C MOV JRHOB, STMP! READ RHDB ONCE 
7995 
7996 ,SHECK THAT RHCS3 HAS 1 
7997 023712 012737 O00001 001124 MOV #1, $GDDAT -GET GOOD = 1 
7999 023720 017737 180206 901126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
8000 023726 022727 G01124 OOlize CMP $GDDAT;S$BDDAT § :COMPARE EXPECTE 
2001 ;DATA WITH DATA READ FROM 
Bbo5 023724 OO14O1 SEO 675 ‘BRANCH IF GOOD 
8004 022726 104104 ERROR 04 
S005 AFTER S15" "cLR" BIT 45 
00 HC H 
B00 ‘IPCKO BIT 4&0 Rucs3 Figg SET 
008 i ZEROS WERE MOVED INTO 
60:0 ;RHDB_WAS READ THEN 
ei ;RHCS3 SHOULD HAVE ! 
e213 ‘a CONTAINED WHAT IS 
14 VEN IN BAD RHCS3 
ecls 023740 673: 
6517 -CHECK THAT RHCS2 HAS MOPE!IR 


60:8 22749 012727 cOOSOO 901124 hoy WMDPE' IR, $GDDAT ;GET GOOD = S00 


L.Pll 


DERARE 


8019 
0 


023746 
tee 
3762 


Ce3774 


023774 


024000 
G24006 
024014 


024022 
024024 


024026 


Beads 


O2e4C4e 
24059 


fF CERNE 


053737 


004737 


012737 
017737 
023737 


001401 
194106 


Ba5937 


017737 
023737 


065010 001124 


aiigy Oo1186 


040322 


004203 


160046 
001124 


001124 


001126 
001126 


poshie BBtiEs 


16002ee 001126 
OCi1le4% OOlleb 


693: 


71: 


BIS 


MOV 
CMP 


BEQ 
ERROR 


JSR 


Jle 


RAgtS nBPe Bt af AND RHesa {eho BI? wd 


UNIT, SGDDAT 


aS BRE 


69$ 
10S 


PC, ad#CLOISK 


sCHECK THAT RHC i. 


MOV 


MOV 
CMP 


BEG 
ERROR 


#RDY!DVH, 


; INCLUDE UNIT NUMBER 
AD R R_ COMPARISON 
iCGnpARE EXPECTED. 
‘DATA WITH DATA READ FROM 
i BHCS 
;sBRANCH IF GOOD 
sAFTER SETTING “CLR” BIT #5 
ff RH HORS TO_INIT THE RH 
PCKO BIT #0 RHCS3 WAS SET 
»ZEROS WERE MOVED INTO 


> RHD 
iB WAS READ THEN 
mae SHOULD HAVE MDPE! IR 


‘TOGETHER WITH UNIT NUMBER 
+ a tae ae WHAT IS 
VEN IN BAD RHCS2 


DEM aR 


-CLEAR RHWC AND FUNCTION BITS IN RHCS! 


ebbaT sey GOOD = 4200 


JRHCS1, SBDDAT 
$GDDAT , SBDDAT 


71$ 
106 


em a RHCS2_HAS IR 


oye 


MOV 
CMP 


uNTt SgRBBAT 


JRHCS2, SBDDAT 
$GDDAT, $BDDAT 


sREAD RHCS1 FOR COMPARISON 
COMPARE _EXPECTE 
;DATA WITH DATA READ FROM 
BRANCH IF GOOD 

LR" BIT #& 


HIN RHCSS TO. INIT. THE Re 


TPCKO BIT #0 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


 RH8 WAS READ THEN 
N RH CLEAR (RHCS2 BIT #5) 


eee cRAGRE 


RHCS1 SHOULD HAVE RDY!DVA 


# CONTAIN gD, WHAT IS 
SRYVEN IN BAD RHCSI 


HPRCLOBE unr} Nuneer 


sREAD RHCS2 FOR COMPARISON 
;COMPARE EXPECTED 


/ 
MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:SS PAGE 153 


Ce4132 001401 BEQ 

024134 104111 ERROR 111 
sAFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
;IPCKO BIT #0 RHCS3 WAS SET 


; ZEROS WERE MOVED INTO 
‘RHOB WAS READ THEN 


DERHAC.P1! 730 RHSC2 MDPE BIT #8 AND RHCS3 IPCKO BIT #0 
8075 ‘DATA WITH DATA READ FROM 
8076 *RHCS 
8077 Oe40S6 00149! BEQ 73$ *BRANCH IF GOOD 
8078 O24960 104107 ERROR 107 Rigi: 
3079 s OF TER SETTING, TCLR SIT ge 
SOB PCK PCKD A BIT ae RHCS fag "SET 
8 is RO oS HERE MOVED 3 
8083 
984 AD THEN : 
oss ‘AN H wit: (RHCS2 BIT #5) | 
8086 ; WAS GIVEN THIS SHOULD ) 
8087 -CLEAR ALL ERRORS 7 
8088 iRHESe SHOULD HAVE IR | 
go89 =100 , 
8990 ‘TOGETHER WITH UNIT NUMBER : 
8091 ‘BUT CONTAINED WHAT IS | 
9092 -GIVEN IN BAD ance | 
8093 o24062 733: | 
8094 “CHECK THAT RHCS3 HAS 0 | 
8036 024062 012737 oo0000 9001124 MOV #0, SGDDAT -GET GOOD = 0 | 
097 024070 017737 160036 001126 MOV JRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON | 
098 BS 76 ate 091124 O01126 CMP $GDDAT;$BDDAT :COMPARE EXPECTED 
8099 ‘DATA WITH DATA READ FROM 
8100 : RHCS 
8191 o24104 oO0140! BEQ 75$ -@RANCH IF GOOD 
8102 O24196 104110 ERROR 110 
8103 s AFTER SETTING “CLR” BIT #5 
104 N RHCSe TO INIT THE RH 
105  TPCKO BIT #0 RHCS3 WAS SET 
£106 i ZEROS WERE MOVED INTO 
gt g *RHDB WAS READ THEN 
8109 -AN RH CLEAR (RHCS2 BIT #5) 
8110 ‘-WAS GIVEN THIS SHOULD 
Billi ‘CLEAR ALL ERROR 
8112 ;RHCS3_ SHOULD 
8113 ‘BUT CONTAINED WHAT IS 
8114 :GIVEN IN BAD RHCS3 
8115 o24110 75S: 
BlIE “CHECK THAT RHBA HAS O 
B117 024110 012737 o00000 001124 MOV #0, $GDDAT :GET GOOD = 0 
1 4116 017737 157742 001126 MOV DRHBA,SBDDAT #§;READ RHBA FOR COMPARISON | 
B133 BS yt 48 8355 ? 4 1124 O011 E CMP $GDDAT,$BDDAT  ;COMPARE EXPECTED | 
g12 ; DATA WITH DATA READ FROM 
gts 775 BR NCH IF GOOD 
812 
B12 
B12 
Bie 
812 
Bie 
813 


9.00 Mu £ wre 


Lie 
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DERHAC.P11 730 RHSC2 MDPE BIT #8 AND RHCS3 IPCKO BIT #0 
8131 -AN RH CLEAR (RHCS2 BIT #5) 
8132 ; WAS GIVEN THIS HOULD 

133 : -CLEAR ALL ERROR 
134 HBA SHOUL HAVE 0 
3135 ‘BUT CONTAINED WHAT IS 
8136 : :GIVEN IN BAD RHBA 
137 Q24136 773%: 
8139 -CHECK THAT RHBAE HAS O 
$133 024136 012737 ooo000 001124 MOV #0, SGDDAT -GET GOOD = 0 
8141 O24144 017737 157760 001126 MOV JRHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
8142 O0241S2 023737 001124 OO01le6 CMP SGDDAT.$BDDAT  :COMPARE EXPECTED 
8143 ‘DATA WITH DATA READ FROM 
8144 ; RHBAE 
814S O24160 901401 BEQ 795 -BRANCH IF GOOD 
8148 Oe4lbe 104112 ERROR 112 
8147 eT. SETTING “CLR” BIT #5 
14 HCRe TO INIT THE RH 
14 eka T #0 RHCS3 WAS SET 
8150 Pat WERE MOVED INTO 
8151 : RHDB 
8152 *RHDB WAS READ THEN 
8153 -AN RH CLEAR (RHCS2 BIT #5) 
8154 :WAS GIVEN THIS SHOULD 
giss “CLEAR ALL ERRORS 
8156 : RHBAE SHOULD HAVE 0 
8157 ‘BUT CONTAINED WHAT IS 
8158 :GIVEN IN BAD RHBAE 
8159 024164 795: 
8160 ‘CHECK THAT RHWC HAS O 
161 024164 012737 oo0000 001124 MOV #0, SGDDAT :GET GOOD = 0 
8163 024172 017737 157664 001126 MOV JRHWC , SBDDAT sREAD RHWC FOR COMPARISON 
gi64 024200 023737 001124 O0i126 CMP $GDDAT,SBDDAT :COMPARE EXPECTED 
165 ‘DATA WITH DATA READ FROM 
8166 : RHWC 
8167 Oe4206 001401 BEQ 815 :BRANCH IF GOOD 
8168 Oe4210 104113 ERROR 113 
8169 ;AFTER SETTING “CLR” BIT #5 
8170 CS2 TO INIT THE RH 
8171 : TPCK O BIT #0 RHCS3 WAS SET 
8172 *ZEROS WERE MOVED INTO 
8172 : RHDOB 
8174 *RHDB WAS READ T 
8175 -AN RH CLEAR CRHCEe rey #5) 
8176 :WAS GIVEN THIS SH 
8177 ;CLEAR ALL ERRORS 
8178 *RHWC SHOULD HAVE 0 
8179 :BUT CONTAINED WHAT IS 
8180 3 :GIVEN IN EAD RHWC 
8181 oer4el2 91S: 
8182 
bias 
gigs eee eter ere rere ttt titi titttitttttttittitititiiiitt: 
8186 ht TEST 31 RHSC2 MOPE BIT #8 AND RHCS3 IPCK1 BIT #1 


mp 
Kje- 


ealeciesiseleciecatesteslatiselasiasias) 
> b— >= b— bb bb > 
bite Out e toro oueo a 


Be 
8201 
82 


aR 


024212 
024214 
Oee20 


024226 
024232 
024240 
024246 
024252 
024260 


024266 
024274 


Be4308 


024306 
024306 


624314 
4356 


024336 
024340 


000004 
012706 
012737 
004737 


012737 


017737 


012737 


3737 


MACY11 27(732) 


RHSC 


001000 
000031 


040322 


000001 
000002 
004210 
004210 
144200 


157566 
001124 


157570 


000002 


yee 4 


OO46S6 


oo4e62 
157664 
1S762e 


601124 


001126 
001126 


001200 


¢ 


‘901124 


00118 


Mle 
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MDPE BIT #8 AND RHCS3 IPCK1 BIT #1 





. i CLEAR THE SuBSY TEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
i SET IPCK l (RHCSS BIT. 8 #1) 
- REA aH t ser ke Sc er tee SFT MOPE (RHCS2 BIT #8) 
: REE RK RHEST FOR BBY eB AP ROPE 814), SC (BIT #15) 
:% ACLRE (RHCS2 BIT BIT 5) 1 
: CHECK Ancol RHCSE RH RHCS3, RHBA, RHBAE, RHWC 

0 egg oo Resa era epee reee Ite: E69 oteent 
8731: SCOPE 


sRESET STACK 
-SAVE TEST NUMBER 


SETUP U INITIALIZE 


UNIT NUBER 
;CLEAR_RHWC AND FUNCTION -s IN RHCS1 
MOV #1, IP -IPCK BIT NO. FOR PRINTOUT 


BIS eIPCK1, dRHCS3 =i en IN RHCS3-BIT #1 
rsd ITE Zend INTO LOCATION 
MOV WRF ROM, JRHDB iURITE ROS INTO RHOB ONCE 


sCHECK THAT RHCSi HAS SC!TRE!DVA!RDY 
Mov #SC!TRE'DVA!RDY,$GDDAT ;GET GOOD = 144200 


MOV @RHCS1,SBDDAT ;READ RHCS1 FOR COMPARISON 
CMP SGDDAT.$BDDAT :COMPARE EXPECTED 
*DATA WITH DATA READ FROM 
*RHCS1 
65$ BRANCH IF GOOD 


EQ 
RROR 140 
; AFTER SETTING “CLR” BIT #5 
NIT THE RH 


MOV #STACK, SP 
MOV #31, a8TSTNM 


JSR PC, a#CLDISK 


‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS! 


653: 
;READ RHDB ONCE 


MOV JRHDB , STMP 1 


*CHECK THAT RHCS3 HAS @ 


Mov 82, SGDDAT sn G00D = 2 

COs REUBET-SERGAT — SCERBARECESEPNGmnrnmason 
Bar Q@ WITH DATA READ FROM 

BEQ 675 jRHCSS IF GOOD 

ERROR 104 


sAFTER SETTING “CLR” BIT #5 
;IN RHCS2 TO INIT THE RH 


- --—-_ —— -_ - - 


tl es aS | cme MACY11 €7(732) QO9-SEP-76 07:55 PAGE iS6 
DERHAC . P T3l RHSC2 MOPE BIT #8 AND RHCS3 IPCK1 BIT #1 


8243 ;IPCK1 SIT #1 RHCS3 WAS SET 
cg eae WERE MOVED INTO 
aoe soe READ Ny 

24 ; RH SHOULD HAVE e@ 

3545 T CONTAINED WHAT IS 
$550 Met IN BAB RHCS3 

BSe4 024342 67$: 

82S ;CHECK THAT RHCS2 HAS MDPE!IR 


Se BES Se A RU |B RTTRLGEP "sR SAPs 





Sais GSH AGTH SRLS «OF SESSRPEEEGT See ers eg, gvrso 
; Bare A LETH Dat DATA a Reap FROM 
4372 091401 EQ 638 BRANCH IF GOOD 
;AETER SETTING CLR BIT 3 
PCK Ck) Bi re RaCS3 S HAS” SET 
fest Abe MOVED INTO 
RHE WAS READ THEN 
Rue SHOULD HAVE MDPE!IR 
TBE THER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS2 
024376 695: 
024376 904737 040222 | JSR PC, J#CLDISK neem i INITIALIZE 
er EAR Ri BNC ANE BUNCTION BITS IN RHCS! 
2 “CHECK THAT RHCS! HAS RDY!DVA 
8283 o24402 012737 oOo4200 001124 MOV WRDY!DVA,SGDDAT ;GET GOOD = 4200 
44] 7737 «1S7444 011 : MOV RHCS1, $B READ RHC 1 of OR. COMPARISON 
Beee Saute 845599 Ariza Bott MOP «SsRCHIDRT’ SEDDAT © COMPARE 
8287 -DATA WITH MOATAS READ FROM 
8288 | :RHCS1 
89 : 4424 00140) BEQ 715 ‘BRANCH IF GOOD 
4406 104106 ERROR 106 
8291 | sAFTER SETTING “CLR” BIT # 
2 TN RHCSe TO INIT THE RH 
g -TPCK1 BIT #1 RHCS3 WAS SET 
8294 ; ZEROS WERE MOVED INT 
8295 ; BHD 
536 WAS READ THEN 
'ON RH CLEAR (RHCS2 BIT #5) 


6298 | WAS GIVEN THIS SHOULD 


—_— = eee ee ee re ee 


MAINDEC-11-DERHAC-A 
OERHAC.P11 T31 


024430 


024430 
024436 


oe4444 
024452 


024460 
O24462 


024464 
024464 
024472 
024500 


024506 
024510 


024512 
024512 


012737 
053737 


017737 
023737 


001401 
104107 


012737 


017737 
023737 


Ole727 
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000100 OQ01124 
005010 001124 


1$74e0 C0112e6 
001124 OO011e6 


000000 001124 


157434 O011c6 
001124 001126 


Cococo 001124 


09-SEP-7 
RHSC2 MDPE BIT #8 AND RH 


71$: 


733: 


7538: 


Blo 


07:SS PAGE 157 


es3 IPCK1 BIT #1 


; CHECK THAT RHCSe HAS IR 


MOV #7 DAT 
BIS UNIT, SGODAT 
MOV JRHCS2, SBDDAT 
CMP $GDDAT , SBDDAT 


BEQ 
ERROR 107 


73$ 


MOV 
MOV JRHCS3, SBODAT 


C 


B 
E 


MOV 


sCHECK THAT RHCS3 HAS 0 
#0, SGDDAT 


MP $GDDAT , SBDDAT 
EQ 75$ 
RROR 110 


; CHECK THAT RHBA_HAS 0 


#0, SGODAT 


;CLEAR ALL ERRORS 
;RHCS1 SHOULD HAVE RDY!DVA 


‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS1 


;GET GOOD = 100 
; INCLUDE UNIT NUMBER 


;sREAD RHCSe FOR COMPARISON 
COMPARE EXPECTED 
; DATA WITH DATA READ FROM 


H 
t BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
;IN RHCS2 TO INIT THE RH 
-IPCK1 BIT #1 RHCS3 WAS SET 
"ZEROS WERE MOVED INTO 


“RHO WAS READ THEN 

;AN RH CLEAR (RHCS2 BIT s) 
;WAS GIVEN THIS SHOUL 

‘CLEAR ALL ERRORS 

; RHCSe SHOULD HAVE IR 


= 1 
‘TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


-GET GOOD = 0 


;READ RHCS3 FOR COMPARISON 
;COMPARE EXPECTE 
:DATA WITH DATA READ FROM 


*RHCS3 
sBRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
; IN RHCS2 TO INIT THe RH 


CK T 
i ZEROS WERE MOVED INTO 


ie HOB WAS READ THEN 
N RH CLEAR (RHCS2 BIT #5) 
G TS SHOULD 


‘GIVEN IN BAD RHCS3 


;GET GOOD = 0 


rere tr te ate me ett ett eeseemmm ee -_- — ee —2ee« 


-_——_ e-< 


—_—— —— 
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024520 
024526 


024534 
024536 


024S40 
024540 
024546 
024554 


024562 
O024SE4 


O24SbE 
O24SE6 
024574 
024602 


Ce4610 
Oe46 12 


017737 
023737 


001401 
1O4i11 


012737 
017737 
023737 


001491 
104112 


012737 
017737 
023737 


00140 
10411 


l 
2 


MACY11 27(7 
RHSCe MDPE 

1$7340 O01 
001124 O01 


3e) 
BIT 
126 
1e6 


COO000 001124 


157356 
001124 


090006 


157262 
O0i1e4 


001126 
001126 


001124 


001126 
001126 


0 
#8 


773: 


793: 


“s 
AN 


E 
D 


p- 


C13 


76 07:55 PAGE 158 
RHCS3 IPCK1 BIT #1 


;READ RHBA FOR COMPARISON 
; COMPARE EXPECTED 
; DAT A WITH DATA READ FROM 


H 
77$§ ‘ BRANCH IF GOOD 


BEQ 7 
ERROR 111 
;AFTER SETTING “CLR” BIT 4#& 
\ ;IN RHCSe TO INIT THE RH 
;IPCK1 BIT #1 RHCS3 WAS SET 
fe WERE MCVED INTO 


H 
‘RHDB WAS READ THEN 
-AN RH CLEAR ES wy #5) 


MOV JRHBA, SBDDAT 
CMP $GDDAT, SBDDAT 


+ RHBA SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHBA 


“CHECK THAT RHBAE HAS 0 
MOV #0, SGDDAT -GET GOCD = 0 


MOV JRHBAE,SBDDAT ;READ RHBAE FOR COMPARISON 
CMP $GDDAT , SBDDAT «COMPARE EXPECTED 
;DATA WITH DATA READ FROM 
BEG 793 : BRANCH IF GOOD 
ERROR lle 
sAFTER SETTING “CLR” BIT &S 
N RHCSe TO INIT THE RH 
sIPCK1 BIT #1 RHCS3 WAS SET 
i gEROS WERE MOVED INTO 
j RHOB WAS ~ THEN 


N RH CLEAR (RHCS2 BIT 45) 
TAS GIVEN THIS SHOULD 
ALL ERRORS 


GIVEN IN BAD RHBAE 


“CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 


MOV JRHWC,S$BDDAT § ;READ RHWC FOR COMPARISON 
CMP $GDDAT,$BDDAT ;COMPARE EXPECT 
sATA WITH DATA READ FROM 
BEQ 81$ :BRANCH IF GOOD 
ERROR 113 
;AFTER SETTING ToLR” BIT #5 
: ZEROS WERE MOVED INTO 
: RHDB 
‘RHDB WAS READ THEN 


——_—— te ee 


MB INDEC-1i-DERHAC-A 
DERHAC. P11 


024614 


024614 
024616 
024622 


024630 


024634 
024642 


O24E62 
024670 
024676 
C24704 


024712 
G24714 


T3l 


000004 
012706 
012737 


004737 


012737 
052777 


013777 
012737 
017737 
023737 


001491 
104140 
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001000 
000032 


04032e 


000002 
000004 


004210 
004200 


157156 
001124 


OO4ESE 


004662 
1S7262 
157220 
1S7ele 
001124 


O01i26 
001126 


D13 
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81$: 


AN waren 7 SH - aS) 


LD HAVE 0 
+ BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHWC 


“ SERESRELAESKHEHASAS SAA LEAAALAAASAAERSSRA EASA REAL AALERALAAARELEKER 
STE T 32 RHSC2 MDPE BIT #8 AND RHCS3 IPCKe BIT #2 
: x CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
: x SET IPCK2 (RHCS3 BIT #2) 
a MOVE ALL ZEROS INTO RHDB TWICE 
: x THIS SHOULD NOT SET TRE SC IN RHCS1 
: & READ RHDB ONC THIS SHOULD set MDPE (RHCSE i811 #8) 
: CHECK RHCS1 F (BIT # SC (BIT #15) 
: READ, RHDB A i “TIE. Get RHCSI, RHCS2’ RHCS3 
: “CLR” (RHCS2 #5) 1 
: ALL ERRORS AR BRED? 
: CHECK RHCS1, RHCSE. RHCS3, RHBA, RHBAE, RHWC 
© FEFEKESESKESESKESSSASSASSES RARE SELAH ASSRAAARASELAAASELAREREFEFFEE 
tST32: SCOPE 
MOV #STACK, SP sRESET STACK 
MOV #32, a8 TSTNM -SAVE TEST NUMBER 
JSR PC, J¥CLDISK ‘GIVE RH INITIALIZE 
-SETUP UNIT NUBER 
‘CLEAR RHWC AND FUNCTION gITS IN RHCS! 
MOV #2, IP -IPCK BIT NO. FOR PRINTOUT 
BIS #IPCK2,JRHCS3 ;SET IPCK2 IN RHCS3-BIT #2 
CLR WRFROM -WRITE ZERO INTO LOCATION 
MOV WRFROM,JRHOB § ;WRITE ZEROS INTO RHDB ONCE 
MOV WRFROM,JRHDB § ;WRITE ZERO SECOND TIME 
“CHECK THAT RHCS1 HAS DVA!RDY 
MOV #DVA'RDY,SGDDAT ;GET GOOD = 4200 
MOV JRHCS1,$BDDAT  ;READ RHCS1 of OR COMPARISON 
CMP SGDDAT.$BDDAT COMPARE EXP 
yt} WITH BETA READ FROM 
BEQ 65$ -BRANCH IF GOOD 
ERROR 14C 


sAFTER SETTING “CLR” BIT #& 
sIN RHCSe TO INIT THE RH 

-IPCK2 BIT #2 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO RHOB 


:RHCS1 SHOULD HAVE DVA!RDY 


‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS1 


MRINODEC-11-DERHAC-A 
ODERHAC.P11 T32 


024716 
024716 


024724 
024732 
024740 


024746 
024750 


024752 
024752 
024760 
024766 
024774 


O0eS00e 
025004 


025006 
C2eS00E 
025014 


OeS0ee 
0eS930 


012737 
053737 


017737 
023737 


001401 
104105 


017737 
012737 


017737 
023737 


MACY11 27(732) Q9-SEP-76 07:55 PAGE 160 
RHSCe MDPE BIT #8 AND RHCS3 IPCKe BIT #e 


658: 
157160 001200 MOV JRHDB, STMP1 ‘READ RHDB ONCE 
‘ CHECK THAT RHCS3 HAS 4 
ooo004 001124 MOV 4, SGDDAT ‘GET GOOD = 
157174 001126 MOV DRHCS3,$BD0DAT  ;READ RHCS3 FOR COMPARISON 
001124 . 001126 CMP SGDDAT.$BODAT :COMPARE EXPECT 
; DAT A WITH DATA READ FROM 
BEQ 673 : BRANCH IF GOOD 
ERROR 104 
-AFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 
-IPCKe 8:T #2 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 
‘ RHOS WaS READ THEN 
i RHCS3 SHOULD HAVE 4 
“BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS3 
&7$: 
-CHECK THAT RHCS2 MDPE!OR!IR 
000700 001124 MOV ANOPE TORT TR Bech ABA F :GET GOOD = 700 
095010 001104 BIS UNIT, $GDDAT INCLUDE UNIT NUMBER 
157076 001126 MOV DRHCS2,$BDDAT  :READ RHCSE FOR COMPARISON 
001124 o0:126 CMP $GDDAT. SBODAT ; COMPARE EXP 
;DATA WITH BATA READ FROM 
BE 69 ‘BRANCH IF GOOD 
ERROR 105 
-AFTER SETTING “CLR” BIT #5 
IN N RHCS2 TO INIT THE R 
-IPCK2 BIT #2 RHCS3 WAS SET 
i ZEROS WERE MOVED INTO 
:RHDB_ WAS READ THEN 
Rute SHOULD HAVE MDPE! OR! IR 
‘TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCSe 
693: 
157070 oOlece MOV JRHOB, STMP2 ‘READ RHDB SECOND TIME 
«CHECK THAT RHCS1 HAS SC! TRE! DVA!RDY 
144200 001124 MOV ¥SC!TRE'DVAIRDY,$GDDAT ;GET GOOD = 144200 
157032 001126 MOV SRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
001124 o01126 CMP SGDDAT.$BDDAT :COMPARE EX 


PECT 
; DATA WITH DATA READ FROM 
;RHCS1 


F1S 


inate -11-DERHAC-A MACY11 27(732) OS3-SEP-76 07:55 PAGE 161 
OERHAC.P11 T3e RHSC2 MDPE BIT #8 AND RHCS3 IPCKe BIT #e 


8523 025036 00140! BEQSsi‘é‘7z«‘*S :BRANCH IF GOOD 
e524 o2504¢ 104140 ERROR 140 
B525 5 AFTER. SETTING "CLA" BIT ws 
9526 HCS2 TO INIT THE RH 
3627 'IPCK2 BIT #2 RHCS3 WAS SET 
B56 ; ZEROS WERE MOVED INTO 
3630 i RHDB WAS READ THEN 
e531 jRHCS 1 {SHOULD HAVE SC! TRE!DVA!RDY 
e533 Fy "EONTA NED WHAT IS 
VEN IN BAD RHCS1 

9525 oeso4e 718: 
8536 CHECK THAT RHCS2 HAS MDPE!IR 
S37 Des04e 912737 900500 901124 MOV ¥MDPE'IR, SGDDAT ;GET GOOD = 
3538 028080 053737 OOS010 O01124 Bis ~—SCUUNIT,$GDBATS INCLUDE UNIT NUMBER 
9540 O250S& 017737 157906 001126 Noy  @RHCS2, $BDDAT —_; READ. RHCS2_ FOR COMPARISON 
8641 25064 923737 601124 O01136 CMP  §$GDDAT’S$BDDAT COMPAR 
ae ;DATR NETH DATA READ FROM 
8544 o2s072 90140! BEG (i738 i BRANCH IF GOOD 
Boys G25074 154106 ERROR 105 
Bsus AFTER SETTING “CLR” BIT #5 
8547 ‘IN RHCSe TO INIT THE RH 
9cue :IPCK2 BIT #2 RHCS3 WAS SET 
9549 ZEROS WERE MOVED INTO 
pcs0 i H 
e551 | :RHDB WAS READ THEN 
e558 RCS SHOULD HAVE MDPE!IR 
ecc4 ‘TOGETHER WITH UNIT NUMBER 
gcss ‘BUT CONTAINED WHAT IS 
gc56 ‘GIVEN IN BAD RHCS2 
8557 25076 733: 
goog ;CHECK THAT RHCS2 HAS 4 
559 O2S07& 012737 000004 901124 MOV «#4, SGDDAT :GET GOOD = 

S61 025104 917737 1570ge 901126 MOV MRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
S62 Oesil2 623737 O011e4 Odlle6 CMP  §GDDAT'SBDDAT  :COMPARE EXPECTED 
8563 7 ‘DATA WITH DATA READ FROM 
e564 :RHCS3 
BSES 025120 001401 BEG =ié7SS ‘BRANCH IF GOOD 
8566 Oetlee 104104 ERROR = 104 
8567 ;AETER SETTING "CLA" BIT #5 
e568 IN RHCS2 TO INIT THE R 
gcc9 ‘IPCKe BIT #2 RHCS3 WAS "SET 
8570 *ZEROS WERE MOVED INTO 
8571 : RHD 
p575 ‘RHDB WAS READ THEN 
$573 :RHCS3 SHOULD HAYE 4 
B575 {GUT CONTAINED WHAT IS 
S575 ‘GIVEN IN BAD RHCS3 

e7? C2124 75: 


— ————e et oe — 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 162 
DERHAC.PL! T32 RHSC2 MDPE BIT #8 AND RHCS3 IPCK2 BIT #2 

79 #025124 oc4737 O4C3e22 JSR PC, JHCLDISK -GIVE RH INITIALIZE 
gogo -SETUP UNIT NUBER 
3381 ‘CLEAR RHWC AND FUNCTION BITS IN RHCSi 
3593 
Goo ;CHECK THAT RHCS1 HAS RDY!DVA 
gee 025130 012727 o04200 o011e4 MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 
Sea geeiay o29737 ocli24 OD112e CHP SCOR’ SEDDAT goneARe EXPECTE ‘eden 

737 1124 92 
B89 DATA Hare AB FAC Reap FROM 
8591 oOe51S2 09140! BEG 775 ae IF GOOD 
8S92  O2S:54 10415¢ ERROR 106 
9593 sAFTER SETTING “CLR” BIT #5 
coos -IN RHCSe TO INIT THE RH 
8595 -IPCK2 BIT #2 RHCS2 WAS SET 
e236 3 ZEROS WERE MOVED INTO 
§s93¢ RUDE WAS READ THEN 
goss -AN RH CLEAR (RHCS2 BIT #5) 
8600 ;WAS GIVEN THIS SHOULD 
8601 ‘CLEAR ALL 
e602 ;RHCS1 SHOULD HAVE RDY!DVA 
8693 =420 
8604 BY CONTAINED WHAT IS 
9605 -GIVEN IN BAD RHCS! 
8606 O25156 775: 
8607 ;CHECK THAT RHCS2 HAS IR 
8608 O2SiS& 912737 o60100 o01124 MOV #IR, $GDDAT :GET GOOD = 100 
B03 625164 953737 O050i19 001154 BIS UNIT. SGDDAT INCLUDE UNIT NUMBER 
qa ee a ee ma 
- ra 4 , 

cis sete RTA as FROM 
8615 O25e06 001401 BEG 738 -BRANCH IF GOOD 
8616 Ceseid0 164187 ERROR §=10 
8617 «Ay SETTING gua" BIT #S 
BE 18 RHCS2 TO I THE RH 
8619 SER0S BIT #2 ness WAS SET 
sect RE MOVED INTO 
9622 OS WAS READ THEN 
8623 -AN RH CLEAR (RHCS2 BIT #5) 
BE 24 | :WAS GIVEN THIS SHOULD 
SEec -CLEAR ALL ERRORS 
BE2E ; RHCSe SHOULD HAVE IR 
8627 3400 
PE OE - TOGETHER WITH UNIT NUMBER 
e629 ‘BUT CONTAINED WHAT IS 
8639 -GIVEN IN BAD aucse 


c 738: 
-CHECK THAT RHCS3 HAS O 
12 O12727 cecoce 001124 Moy 80, $GODAT -GET GOCD = 0 


y 


rh ptt tae 
C.Pil T3é 


02S2c0 
C2eSe26 


025234 
025236 


025240 
025240 
025246 
025254 


OeSe2be 
02S2E4 


DeSebE 
025266 
0eSe74 
025302 


025310 
OeS31e 


E 
77 
37 


017737 
023737 


001401 
1O04i10 


012737 


017737 
023737 


012737 
917737 
023737 


001401 
1O4ile 


MACYL1 27(732) 


H13 
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RHSC2 MDPE BIT #8 AND RHCS3 IPCKe BIT #e 


156705 001126 
001124 OO01126 


C0000 901ie4 


1566l2 O01126 
0011e4 001126 


090000 O0i1le4 


iS6630 001126 
O0il2e4 O011e6 


81$: 


833: 


MOV JRHCS3, SBODAT 
CMP SGDDAT , $8DDAT 
BEG 81s 
ERROR 110 


:CHECK THAT RHBA HAS 0 
MOV #0, SGDDAT 


MOV 
CMP 


BEG 
ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


JRHBA, SBODAT 
$GDDAT. SBDDAT 


83$ 
iil 


sCHECK THAT RHBAE HAS 0 
#0, SGDDAT 


JRHBAE , SBDDAT 
$GDDAT , $BDDAT 


85$ 
lle 


sREAD RHCS3 FOR COMPARISON 
COMPARE EXPECTED 

:DATA WITH DATA READ FROM 

: RHCS 

;BRANCH IF GOOD 

; AFTER SETTING “CLR” a aS 
N RHC NIT THE 


C 
ZEROS HERE MCVED INTO 
;RHDB WAS READ T 


HEN 
:A CLEAR (RHCSe BIT #5) 
;WAS GIVEN THIS SHOULD 
ALL ERRORS 


: GIVEN IN BAD RHCS3 


;GET GOOD = 0 

;READ RHBA FOR COMPARISON 
; COMPARE EXPECTED 

:DATA WITH DATA READ FROM 
BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT aS 
I C THE RH 


ii 
; ZEROS WERE MOVED INTO 


R HDB WAS READ THEN 
: AN RH CLEAR ha Vv aS) 


: GIVEN IN BAD RHBA 


;GET GOOD = 0 


;sREAD RHBAE FOR COMPARISON 
COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHBAE 
:BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
-IPCK2 BIT #2 RHCS3 WAS SET 
i gEROS WERE MOVED INTO 


: RHOB WAS READ THEN 


MRINDEC-11-DERHAC-A 
DERHAL. P11 T3e 


025314 
025314 
OeS32e 
C2S330 


025336 
025340 


OeS34e 


C2S34e 
0eS344 
025350 


025356 


0eS362 
Ce5370 


Cle/37 


012706 
012737 
004737 


912737 
052777 


I13 
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;AN RH CLEAR (RHCS2 BIT #5) 
ee . HOULD 


VEN TN BAD RHBAE 


gss: 
“CHECK THAT RHWC HAS 0 
ococ00 001124 Mov #0, SGDDAT 


156534 O011e6 MOV 
O011e4% 001126 CMP 


;GET GOOD = 0 


;READ RHWC A oe 
COMPARE EXP 
‘DATA WITH DATA READ FROM 


: RHWC 
875 ;BRANCH IF GOOD 


113 
;AFTER SETTING “CLR” BIT #5 
;IN RHCS2 TO INIT THE RH 
-IPCK2 BIT #2 RHCS3 WAS SET 
sgEROS WERE MOVED INTO 


ARB CREAR GeHCSS BIT 45) 
:WAS GIVEN THis "sh Su Pe 
-CLEAR ALL 
: RHIC SHOULD. 


HAVE a) 
:BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHWC 


JRHWC, SBODAT 
SGDDAT , SBDDAT 


BEQ 
ERROR 


973: 


EKA A LAER ERA A AEE EAA EEE EE REA ALLER EAE EA EGER EAEREER EELS 
RHSCe MDOPE BIT #8 AND RHCS3 IPCK3 BIT #3 
CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 


3 BIT #3) 
OVE ALL ZEROS INTO RHOB T 
OT SET TRE SC IN RHCS1 
READ RHDB ONCE THIS SHOULD 7seT MOPE (RHCS2 BIT 
CHECK RHCS1 FOR ROY (BIT #7 TRE (BIT #14), Fe eaIT #15) 
READ RHD8 A SECOND TIM CHE et SHICST RHCS2; RHCS2 


Age y TF #5) IS GIV 
a ck RHCeL ucse. AHS, RHBA, RHBAE, RHWC 


ee ee See Se 
m 


Sees @eee ee @e 26 @e £202 28 @e ae 


i ° overt weppegpepeepes tees regprencerrree rn opener, 
001050 a. ae eSTACK. SP sRESET STACK 
090033 OO4ESE MOV #33, a8TSTNM -SAVE TEST NUMBER 
040322 ISR PC, J#CLDISK -GIVE RH INITIALIZE 
“SETUP UNIT R 
-CLEAR RHWC ANB FUNCTION giTs IN RHCS: 
000002 o04662 MOV #3, IP -IPCK BIT NO. FOR PRINTOUT 
ccocio §6156534 BIS wIPCK3,RHCS3 ;SET IPCK3 IN RHCS3-BIT 83 


MAINDEC-11-DERHAC-A 
SANE Pit Oe aa 


025376 


bS84) 


025415 
0eS424 
OeS43e 


025440 
OeS44e2 


02S545e 


025460 
025466 


025474 
025476 


025500 


95 025500 
- OeSSOE 


005037 
Bi acce 

13777 
012737 
017737 
623737 


001401 
104140 


017737 


012737 
017737 
023737 


001401 
104104 


012737 
053737 


017737 
023737 


001401 


MACY11 e7¢; 
MDPE 


RHSC 
004210 


Bg4810 


004200 


156430 
001124 


158432 


000910 


LS6446 
001124 


090700 
005010 


156350 
001124 


732) 
BIT 


1ee465 


001124 


001126 
001126 


001200 


001124 


001126 
001126 


09-SEP- 


653: 


67$: 


J1g 


76 97:55 PAGE 165 
#8 AND RHCS3 IPCK3 BIT 83 


ROY WIREROM, RHOB «WRITE SEROS-INTO-RHOB_ ONCE 

NOV a Rita: tWR tt sERe SECOND TIME 

“CHECK THAT RHCS1 HAS DVA!RDY 

MOV wDVA!RDY,SGDDAT ;GET GOOD = 4200 

MOV JRHCS1,$BDDAT  ;READ RHCS1 oF OR COMPARISON 

CMP $GDDAT,$BDDAT | ;COMPARE EXP 
DAR WITH ABTA READ FROM 

BEG S$ BRANCH IF GOOD 

ERROR 140 
“AFTER SETTING “CLR” BIT #5 
IN RHCS2 TO INIT THE RH 
-IPCK3 BIT #3 RHCS3 WAS SET 
i ZEROS WERE MOVED INTO RHDB 
;RHCS1 SHOULD HAVE DVA!RDY 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS! 

MOV JRHDB, STMP 1 -READ RHDB ONCE 


seek A 5 gehpar 10 


MOV JRHCS3, SBDDAT 
CMP SGDDAT . $BDDAT 

BEQ 675 

ERROR 104 

“CHECK THAT RHCS2 HAS MDP 
MOV #MOPE!OR! IR, $GDDA 
BIS UNIT, $GDDAT 

MOY JRHCS2, SBDDAT 

CMP $GDDAi , SBDDAT 

BEG 69 


;GET GOOD = 10 
sREAD RHCS3 FOR COMPARISON 


Saree BATA READ FROM 


BRANCH IF GOOD 


sAFTER SETTING oo BIT #5 
sIN RHCSe TO INIT THE RH 
;IPCK3 BIT #3 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


: RHDB WAS READ THEN 
;RHCS3 SHOULD HAVE 10 


=10 
BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS3 


SORT IR- 
T GOOD = 700 
; INCLUDE’ UNIT NUMBER 


sREAD RHCS2 FOR COMPARISON 
;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


* RHCS2 
;BRANCH IF GOOD 


K13 
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AC.P 733 RHSC2 MDPE BIT #8 AND RHCS3 IPCK3 BIT #3 
8803 oO25532 104105 ERROR 105 
8804 OF TER SETTING "¢ ToLR BIT aS 
880s HC THE RH 
8806 -IPCK3 BIT #3 RHCS3 WAS SET 
3907 :2EROS WERE MOVED INTO 
egoeg ‘RH 
9899 *RHDB WAS READ THEN 
810 8. SHOULD HAVE MDPE!OR!IR 
8812 - TOGETHER WITH UNIT NUMBER 
8813 ‘BUT CONTAINED WHAT IS 
9814 -GIVEN IN BAD RHCS2 
g815 025534 69S: 
ky 025534 017737 156342 o61202 MOV JRHDB, STMP2 ;READ RHDB SECOND TIME 
9818 “CHECK THAT RHCS1 HAS SC! TRE!DVA!RDY 
8819 o25S42 012737 144200 001124 MOV HSC! TRE'DVA'RDY,SGDDAT ;GET GOOD = 144200 
8821 O25550 017737 156304 001126 MOV JRHCS1,$8DDAT  ;READ RHCSi FOR COMPARISON 
8822 025556 023737 O01124 001126 CMP SGDDAT,$BDDAT :COMPARE EXPECTED 
8823 iDATA WITH DATA READ FROM 
8825 O2S5S64 001401 BEQ 71$ i BRANCH IF GOOD 
e876 Oessbe 104140 ERROR 140 
8827 ‘AFTER SETTING “CLR” BIT #5 
9828 ; IN HCS2 TO INIT THE RH 
9829 :IPCK3 BIT #3 RHCS3 WAS SET 
8830 ‘ZEROS WERE MOVED INTO 
8831 : RH 
9832 *RHDB WAS READ THEN 
8833 ;RHCS1 SHOULD HAVE SC!TRE!DVA!RDY 
8934 =1442 
8835 BUT CONTAINED WHAT IS 
8836 -GIVEN IN BAD RHCS1 
8837 025570 713: 
8838 “CHECK THAT RHCS2 HAS MDPE!IR 
8839 02e5570 0127327 oO00S00 901124 HOV ¥MDPE'TR.S$GDDAT ;GET GOOD = SOO 
B40 025576 053737 905010 oOl1e4 BIS UNIT, $GDDAT INCLUDE UNIT NUMBER 
8842 O2S604 017737 156260 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
8843 OeSbi2 023737 001124 001126 CMP SGDDAT,$BDDAT ;:COMPARE EXPECTED 
BBN :ATR WITH DATA READ FROM 
8846 O25620 201401 BEQ 733 *BRANCH IF GOOD 
8847 OeSbe2e 104195 ERROR =:1:05 
Beye s AFTER SETTING. "CLR SIT 8S 
ges PCK #3 RHCS fas” SET 
3 ESE de Roe 
ges3 it Oe WAS READ T 
gee 4 ; RH $2 SHOULD HAV NMDPE! IR 
Bese TOGETHER WITH UNIT NUMBER 
6857 BUT CONTAINED WHAT IS 
Bese VEN IN BAD RHCSe 


nal | ces 


RHAC.P11 


025624 
02S6e24 
025632 
025640 


O2S64E 
Oe2S6S0 


025652 
O2S6Se2 


OeS&S6 
025664 
GeS6&7e 


025700 
C2S70¢e 


025704 


025704 
0eS71e 


025720 
025726 


T33 


012737 


017737 
023737 


001401 
104104 


004737 


012737 


017737 
023737 


001401 
104106 


012737 
053737 


017737 
023737 


MACY11 27(732) 
RHSCe 


000010 001124 


156274 001126 
001124 O0l1ie6 


0403e2r 


004200 


156170 
001124 


000100 
005010 


156144 
001124 


001124 


001126 
001126 


001124 
001124 


001126 
001126 
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753: 


773: 


S) 
MDPE BIT #8 AND RHCS3 IPCK3 BIT 43 
733: 


“CHECK THAT RHCS3 HAS 10 
MOV #10, $GDDAT 


MOV JRHCS3, SBODAT 
CMP SGDDAT , SBDDAT 


GET GOOD = 10 

READ RHCS3 FOR COMPARISON 
: COMPARE EXPECTED 

{HLF ke DATA READ FROM 
75$ : BRANCH IF GOOD 


y 
r iON RE SETTING “CLR” a aS 
Se TO INIT THE R 


fuse BIT #9 AACS? Was. SET 


; RHOB 
;RHDB WAS READ THEN 
:RHCS3 SHOULD HAVE 10 


=] 
iste CONTAINED WHAT IS 
;GIVEN IN BAD RHCS2 


BEQ 
ERROR 


RH INITIALIZE 
TuP UNIT NUBER 
EAR RHWC AND FUNCTION BITS IN RHCS1 


JSR PC, a#CLOISK 


evens 


RDY!DVA 
GDDAT ;GET GOOD = 4200 


*READ RHCS1 FOR COMPARISON 

*COMPARE EXPECTED 

DATA WITH DATA READ FROM 
»RHCS1 

77$ BRANCH IF GOOD 


0 
= iON RHC = sant ‘TT WU aS 


he BIT a2. RAGS HAS = 
ps 5 ws C Em BIT #5) 
‘WAS RIVEN 7 pel rei 
CLEAR ALL 
‘RHCS]. SHOULD HAVE ROY!DVA 


Fw taINeD WHAT IS 
GIVEN IN BAD RHCS1 


;CHECK THAT RHCS1 gti 
MOV #RDY! DVA, 


MOV JRHCS1, SBDDAT 
CMP SGDDAT , SBDDAT 


BEG 
ERROR 





-CHECK THAT RHCS2 HAS IR 
MOV #IR, SGDDAT -GET GOOD = 100 


BIS UNIT. SGDDAT ‘INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP SGDDAT,$BDDAT :COMPARE EXPECTED 





025734 
025736 


025740 
025740 
025746 
025754 


025762 
025764 


025766 
025766 
025774 
026002 


026010 
026012 


-DERHAC-A 


T33 


001401 
104107 


012737 
017737 
023737 


001401 
104110 


012737 
017737 
023737 


001401 
104111 


MACY11 27(732) 
MDPE 


RHSC 


793: 


000000 001124 


156160 O01126 
0011e4 O01126 


81$: 


090000 O0i1e4 


156064 001126 
O0011e4% 001126 


BEQ 
ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


MoV 


MOV 
CMP 


BEQ 
ERROR 


79$ 
107 


M13 
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BIT #8 AND RHCS3 IPCK3 BIT #3 


sCHECK THAT RHCS3 HAS 0 
#0, SGDDAT 


JRHCS3, SBDDAT 
SGDDAT , SBDDAT 


81$ 
110 


sCHECK THAT RHBA HAS 0 
#0, SGDDAT 


JRHBA, SBDDAT 
SGDDAT , SBDDAT 


83$ 
111 


‘DATA WITH DATA READ FROM 
‘BRANCH IF GOCD 


;AF TER a5 TING “CLR” BIT #S 
-IN RHCSe TO INIT THE RH 
;IPCK3 BIT #3 RHCS3 WAS SET 
; ZEROS WERE MOVED INTO 


+ RHOB WAS READ THEN 

-AN RH CLEAR (RHCS2 BIT #5) 
-WAS GIVEN THIS SHOULD 
‘CLEAR ALL ERROR 

see SHOULD HAVE IR 


‘TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS2 


;GET GOOD = 0 


sREAD RHCS3 FOR COMPARISON 
XPECTED 


;COMPARE EX 


ee Mie DATA READ FROM 
;BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT 45 
sIN RHCSe TO INIT THE RH 
;IPCK3 BIT #3 RHCS3 WAS SET 
ZEROS WERE MOVED INTO 


*RHDB WAS READ THEN 

AN RH CLEAR (RHCS2 BIT #5) 
-WAS GIVEN THIS SHOULD 
;CLEAR ALL ERRORS 

sRHCS3 SHOULD HAVE_O 

‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 


;GET GOOD = 0 


sREAD RHBA FOR COMPARISON 
;COMPARE EXPECTED 
:DAT A WITH DATA READ FROM 


: RHBA 

‘BRANCH IF GOOD 

;AF TER a5 TING a" BIT #5 
IN RHCS E RH 
-IPCK3 BIT #3 RHCS2 Mias SET 
>ZEROS WERE MOVED INTO 


: RHDB 
-RHDB WAS READ THEN 


- ee mn i EE ee ll ell _— —— Om 


N13 
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ee Pil HES BHsce "BPE af m AND RHCS3 IPCK3 BIT #3 

9971 it ea (RHCS2 BIT #5) 
ue MAREN Uthgag? 
3975 ‘BUT ACONTAINED. aT IS 
897 ‘GIVEN IN BAD RHBA 

g2 026014 93$: 

78 -CHECK THAT RHBAE HAS 0 
beac 026014 012737 ooo000 001124 MOV #0, SGDDAT :GET GOOD = 0 
aey 026022 017737 156102 601126 MOV JRHBAE,S$BDDAT  ;READ RHBAE FOR COMPARISON 
8982 026030 023737 001124 O0ll26 CMP SGDDAT . SBDDAT ; COMPARE EXPECTED 
a8 -DATA WITH DATA READ FROM 
98S 026036 001401 BEQ gS$ pe H IF GOOD 
o386 026040 104112 ERROR lle " 1. orf a 
eee aces TO ENTS THE RH 
8989 fh i BIT #3 RHcS3 Mfias SET 
8990 *2EROS WERE MOVED INTO 
8991 : RHDB 
9992 -RHDB WAS THEN 
8993 “AN RH CLEAR (RHCS2 BIT #5) 
eS94 *WAS GIVEN THIS SHOUL 
Bogs *CLEAR ALL 
8996 *RHBAE SHOU 
8997 *BUT CONTAINED WHAT IS 
eoge ' tGIVEN IN BAD RHBAE 
8999 Oe6042 gss: 
9000 “CHECK THAT RHWC HAS O 
2001 O26042 012737 o00000 001124 MOV #0, SGDDAT :GET GOOD = 0 
9003 Oe60SC 017737 156006 001126 MOV JRHWC , SBDDAT sREAD RHWC FOR COMPARISON 
9004 O26056 023737 001124 O01126 CMP $GDDAT,SBDDAT  ;COMPARE xPEC rep 
ous ob WITH ‘DATA READ FROM 
9007 OP6064 001401 BEQ 87$ :BRANCH IF GOOD 
9008 Geb0&6 104113 ERROR 113 
9003 -AFTER SETTING “CLR” BIT #5 
9010 -IN RHCS2 TO INIT THE RH 
9011 -IPCK3 BIT #3 RHCS3 WAS SET 
9012 Tory WERE MOVED INTO 
9013 RHO 
9014 HOB WA S READ THEN 
ap18 i BN H CLEAR (RHCSe BIT #5) 
1 :WAS GIVEN THIS SHOULD 

apie i CLER HOULD HAVE 
apie : BUT cBNTATNED ‘Bat Is 

9020 ; GIVEN IN. BAD RHWC 

9021 026070 Q7$: 

9022 z 

9023 

ae 

9026 cy REL ERER ERE RERER EERE REAR EERE EER RAE ERRRERE RELA AER E RR ELE EE EE 


a ee 


| MAINDEC=11-DERHAC=A 
DERHAC. PL) 


026070 
026072 
026076 
026104 
026110 
026116 
026124 
026132 
026136 


eet oe 
02614 
wate 


026169 
026164 


026166 
026174 
026202 
026210 


O26216 


Oebe20 


T34 


000004 
012706 
0le737 


004737 


012737 1777 


004077 
004154 


005037 


004077 
004150 


012737 
053737 
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001000 
009034 


040322 


177077 
177757 


004210 , 
"156502 


00300e 
177767 
003062 


1S64S4 


04030C 
005010 


155662 
001124 


004656 


004210 


155736 


1$5732 


155710 
155704 


001124 
001124 


001126 
001126 


B14: , 
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RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT #le 


-¥TEST 34 


WK i IK eK ic ice oc 


@ec @e @e @e 22 @e @e ee ee @2e Ge 


+8734: 


RHCS2-WCE BIT #14 AND RHCS3-WCE OW BIT &le 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 
SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 
ODD WORD BOUNDARY 
DO A ONE op WRITE CHECK WITH RHBA FROM AN 
ODD WORD BOUN 

THIS SHOULD SET WCE ate (RHCS3 BIT #le) 
AND “ae (RHCSe BI 

"CLR" (RHCSe SIT #5) IS GIVEN 
ALL ERRORS ARE CLEAR 
CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


- LELRE EL EL EK ELEM ER ERE EERE R ERE K EK RARE RE EEE EEE KALE LALA AEE EEE REE 
SCC 


MOV ¥STACK, SP -RESET STACK 
MOV #34, J8TSTNM -SAVE TEST NUMBER 


JSR —«- PC, awCLDISK -GIVE RH INITIALIZE 
‘SETUP UNIT N 


UBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS! 


“WRITE ONE WORD OF ALL ONES ON THE DEVICE 

MOV 1, WREROM -ALL ONES INTO WRITE FROM 

MOV HIWC ‘NINE WORD FOR WORD COUNT REGISTER 
MOV +91 aR JRHBA :WRITE FROM BUFFER INTO BUS PODRESS 


JSR RO, JCOMND ; GO TO DQ_COMMAND 


WRIDAT ‘WRITE DATA: 
-SET UP FOR WRITE CHECK 

écR BUF OW -WRITE DATA FOR WRITE CHECK ERROR 
MOV JRHWC *NINE WORD FOR WORD COUNT REGISTER 


-WRITE FROM BUFFER INTO BUS ADDRESS 
-FROM ODD WORD BOUNDRY 
«WRITE CHECK ON ODD WORD’ BOUNDARY 
ISR RO, JCOMND :GO TO DC COMMAND 
WRCHEK -WRITE CHECK DATA 


MOV sur OW JRHBA 


> 


“CHECK THAT RHCS2 HAS WCE!OR!IR 
MOV #WCE!OR! IR, $GDDAT :GET GOOD = 40300 
BIS UNIT. -$cDDaAt » INCLUDE UNIT NUMBER 


MOV @RHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP SGDDAT , SBDDAT ; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


*RHCS 
BEG 65$ ‘BRANCH IF GOOD 
ERROR 114 
sAFTER SETTING “CLR” BIT #5 


sIN RHCSe TO INIT THE RH 
;ONE WORD OF ALL ONES IS 


=< = a ee | EE Ee a ee ee 


C14 
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‘ONE WORD OF ALL ONES IS 


9083 -WRITTEN ON THE DEVICE 

9984 =A WRITE CHECK WAS DON 

90985 -ON AN ODD WORD BOUNDARY THEN 
abe° gRHESS SHOULD HAVE WCE!OR!IR 
goge ‘TOGETHER WITH UNIT NUMBER 
3089 ‘BUT CONTAINED WHAT IS 

3090 -GIVEN IN BAD RHCS2 

3031 026222 

9093 “CHECK THAT RHCS3 HAS DBL! WCEOW 

2034 026222 012000 001124 MOV #DBL ! WCEOW, SGDDAT -GET GOOD = 12000 
8096 026230 1SS676 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
9097 Oce6236 001124 001126 CMP SGDDAT;S$BDDAT :COMPARE EXPECTED 

9098 ‘DATA WITH DATA READ FROM 
3099 :RHCS3 

9100 oe62e44 BEQ 675 ‘BRANCH IF GOOD 

8101 Oe6e46 ERROR 115 

9102 -PFTER SETTING “CLR” BIT #5 
9103 ‘IN RHCS2 TO INIT THE RH 
9104 ‘ONE WORD OF ALL ONES IS 
9105 :WRITTEN ON THE E 

9106 -A WRITE CHECK WAS DONE 

9107 “ON AN ODD WORD BOUNDARY THEN 
3198 3 RHCS3 SHOULD HAVE DBL! WCECiN 
3110 ‘BUT CONTAINED WHAT IS 

Sill GIVEN IN BAD RHCS3 

9112 Oebeso 

He 

9115 Oeb2s0 ISR PC, JHCLDISK -GIVE RH INITIALIZE 

9116 -SETUP UNIT NUBER 

3117 ‘CLEAR RHWC AND FUNCTION BITS IN RHCS! 
9119 

9120 “CHECK THAT RHCS1 HAS RDY!DVA 

lel 026254 MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 

9123 Oeb26e2 MOV IRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
9124 O26276 CMP SGDDAT;SBDDAT :COMPARE EXPECTED 

9125 :DATA WITH DATA READ FROM 
9126 *RHCS1 

9127 026276 BEQ 69$ ‘BRANCH IF GOOD 

9128 026300 ERROR 116 

9129 ;AFTER SETTING "CLR" BIT #5 
9130 N RHCS2 TO INIT THE RH 

913 

912 

312 

912 

313 

913 

913 

913 


COnNMiUun wre 


ERRORS 
{RASS | SHOULD HAVE RDY!OVA 


———_— — om + 


- -———-_ | | eS Se Re rr ee 


MBAINDEC-11-DERHAC-A 
DERHAC. P11 T34 


2 = 


oS 
OW OOD OWODODOOD OOOO ODO ODOOWOODOOOOOWODOWOOWOWODO OWWDOWDWOWWWWWOwWowWwow 
> 0—= 0 = b= bb bb 0 = be bs bo be 8 bo 
WO OWOOOMOWOMMOMOMMOIIN NYNORSK r mmm unuwiwiwniui wmv © 
M-OWO NOUN £1 OO NOU CWT OO ONM UN CW OWM NOU LC WIfTur-OWOND 


SSS EN) 


026302 


026302 
026310 


026316 
026324 


26332 
026334 


026336 
026336 
026344 
026352 


026360 
CebsEe 


O2E3E4 
026364 


C2E37e 
Ce64O0 


012737 
053737 


017737 
023737 


Ol 
l7 


0014 
1041 


912737 
017737 
G23737 


001491 
104120 
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000190 
005010 


155546 
001124 


001124 
001124 


001126 
001126 


000000 901124 


155562 O011c6 
001124 O0iles 


Ol2737 OO0000C 001124 


Ci7737 1SS466 001126 
Oe3737 OClie# O0lleb 


D4 
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693: 


718: 


733: 


MOV 
BIS 


MOV 
CMP 


BEG 
ERROR 


MOV 


MOV 
CMP 


BEQ 
ERROR 


; CHECK maa RHCS2e_HAS IR 
$GDDAT 


UNIT. $GDDAT 


JRHCSe, SBDDAT 
SGDDAT, SBDDAT 


71 
ll 


$ 
7 


sCHECK THAT RHCS3 HAS 0 
#0, SGDDAT 


JRHCS3, SBDDAT 
$GDDAT , $BDDAT 


73$ 
120 


»CHECK THAT RHBA HAS 0 


MOY 


MOV 
CMP 


#0, SGDDAT 


JRHBA, S$BDDAT 
$GDDAT, $BODAT 


=4200 
BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


GOOD = 100 
INCLUDE UNIT NUMBER 
sREAD RHCS2 FOR COMPARISON 
COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
*RHCS 
: BRANCH IF GOOD | 


; AFTER SETTING "CLR" BIT gS 
N RHC HE 


RORS 
: RHCS2 SHOULD HAVE IR 
TOGETHER WITH UNIT NUMBER 
:BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS2 
;GET GOOD = 0 
sREAD RHCS3 FOR COMPARISON 
COMPARE EXPECTED 
DAT A WITH DATA READ FROM 
: GRANCH IF GOOD 


ees tot “CLR” BIT #5 


sWAS GIVEN THIS SHOUL 
sCLEAR ALL ERRORS 
; RHCS3 SHO HAV 


:GIVEN IN BAD RHCS3 


;GET GOOD = 0 


sREAD RHBA FOR COMPARISON 
;COMPARE EXPECTED 


MRINDEC-11-DERHAC-A 
2) hoe Sb eel 


HU.PI] 


$197 Q26406 
$198 O26410 


Sell Oeb4le 
$213 Oeb4le 


@512 Ose48e 


9219 026434 
Sc2e0 026436 


9233 O2e6440 
$235 O0eb440 
S237 O2644E 


asze 026454 


012737 


083737 


001401 
l04l2e 


012737 


017737 
023737 


COCOG0o OO 


Bites Bt 


1124 


1126 
1156 


000000 O0011e4 


ISS410 O01126 


001124 OOileé 


elt 


1F°ARD RAESSCUcE OW ETT 


73: 


BEQ 
ERR 


MOV 
MOV 


CMP 


BEG 
ERR 


-CHECK THAT RHWC HAS 0 
hoy RO, SGODAT 


OR 


sCHECK THAT RHBAE HAS 0 
#0, SGDDAT 


JRHBA af » SBODAT 
$GDDAT , SSDDAT 


77$ 
lee 


IRHWC, SBDDAT 
$GDDAT, $BDDAT 


79$ 
le3 


:DATA WITH DATA READ FROM 
‘BRANCH IF GOOD 
;AFTER SETTING “CLR” BIT 8 


;R LD HAVE 0 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


;GET GOOD = 0 


;READ RHBAE ERS COMPARISON 
;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


: RHBA 
:BRANCH IF GOOD 
4 Ay SETTING a af aS 


N RH CLEAR (RHCS2e BIT #5) 
ff ater THIS SHOULD 
;CLEAR ALL ERRORS 
;RHBAE SHOULD HAVE _O 
:BUT CONTAINED WHAT IS 

:GIVEN IN BAD RHBAE 


;GET GOOD = 0 

; READ a wer COMPARISON 
Sata uth 534 Ep 

ATA WITH DATA READ FROM 
BRANCH IF GOOD 
4 Als SETTING ft f aS 


: E 

;A WRITE CHECK WAS DONE 

ON AN ODD WORD BOUNDARY THEN 
-AN RH CLEAR (RHCS2 BIT #5) 
-WAS GIVEN THIS SHOULD 


Rae ett om ead 
DERHAC.P 11 


026456 


O2646E5 
026470 
026474 


026502 


026506 
026514 
026522 


026520 
026534 


026536 
O2654e 
026550 


O26556 
OebSée 


026564 
C2b57e 


T34 


000004 
012706 
012737 


004737 


012737 
012777 
012777 


004077 
004154 


005037 
012777 
012777 


004077 
004150 
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001000 
000035 


040322 


177777 
177767 
004210 


156104 


00300e 
177767 
003002 


156056 


040300 
CCSO10 


OO4ESE 


004210 
155340 
155334 


15S53le 
155306 


F 14 
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733: 


WK OK IK OK ce oie = 


@e @e @e'e@ee @e @e@e 26 26 @e ee 


té735: 


;CLEAR ALL ERRORS 
sRHWC SHOULD HAVE 0 

: BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHWC 


sy RRR ER LER ERR EERE LEE EARLE REEL ERE EKER EEE ER EEE EAE EER ERE AEE AE ES 
EST 35 RHCSe-WCE BIT #14 AND RHCS3-WCE OW BIT #12 


cry AR THE SUBSYSTEM BY A_CONTROLLER_ CLEAR (RHCS2 BIT #5) 
WRITE NINE WO 4 a ALL NINES ON TO THE DEVICE 

SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 
ODD ee BOUN NDARY 

DO A ONE WORD tN CHECK WITH RHBA FROM AN 
ODD WORD BOUND 

THIS SHOULD SET CE od (RHCS3 BIT #12) 

AND , (RHCSe BIT #14 

“CLR” (RHCSe BIT 45) 15 GIVEN 

ALL ERRORS ARE CLEARED 

CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 


: EEERELRL ELE LE LAER EAE LEAR EARLE LEK AK ALEK ALEK ALE EEK LAKE LER EE ES 
SCOPE 


MOV #STACK, SP :RESET STACK 
MOV #35, a8TSTNM -SAVE TEST NUMBER 
JSR PC, J#CLDISK 


;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS1 


-WRITE ONE WORD OF ALL ONES ON THE DEVICE 
MOV a-1,h RFROM “ALL ONES INTO WRITE FROM 


MOV JRHWC ‘NINE WORD FOR WORD COUNT REGISTER 
MOV suRERON JRHBA :WRITE FROM BUFFER INTO BUS ACDRESS 
JSR RO, ICOMND ;GO_ TO DO COMMAND 

WRIDAT ‘WRITE DATA 

-SET UP FOR WRITE CHECK 

éLR =. FO -WRITE DATA FOR WRITE CHECK ERROR 
MOV JRHWC ‘NINE WORD FOR WORD COUNT REGISTER 
MOV SUF ON JRHBA :WRITE FROM BUFFER INTO BuS ADDRESS 


: FROM 900 WORD BOUNDRY 
-WRITE CHECK ON ODD WORD BOUNDARY 
ISR RO, JCOMND -GO TO DO COMMAND 
WROHEK ‘WRITE CHECK DATA 


;CHECK THAT RHCS2 HAS WCE! OR! IR 
MOV #WCE!OR' IR, $GODAT ‘GET GOOD = 49200 
BIS UNIT, -$cDDatT » INCLUDE UNIT NUMBER 


G14 
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9307 O26600 017737 155264 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
9308 26608 023737. 001124 901126 CMP  $GDDAT; S8DDAT ; COMPARE EXPECTED 
9309 ; ‘DATA WITH DATA READ FROM 
9310 a :RHCS 
331i! 926614 ool4o! - BEQSti‘éSSSS ‘BRANCH IF GOOD 
§312 2661s 104114 - ERROR 114 
9313 . AFTER SETTING "CLR" BIT #5 
9314 IN RHCS2 TO INIT THE RH 
9315 ONE WORD OF ALL ONES IS 
$316 ‘WRITTEN ON THE DEV 
9317 ;A WRITE CHECK WAS DONE 
9319 = | ON AN ODD WORD BOUNDARY THEN 
$213 gRHCS2 SHOULD HAVE WCE! OR! IR 
932: 3 ‘TOGETHER WITH UNIT NUMBER 
9332 ‘BUT CONTAINED WHAT IS 
9323 ‘GIVEN IN BAD RHCS2 
$364 26620 65S: 
9326 “CHECK THAT RHCS3 HAS DBL'WCEOW 
$3e7 026620 012737 012000 on1ie4 MOV = #DBL! WCEOW, SGDDAT :GET GOOD = 12000 
9229 2626 017737 155300 001126 MOV MRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
9330 026634 023737 001124 SOlies CMP - $GDDAT'SBDDAT COMPARE EXPECTED 
9331 ‘DATA WITH DATA READ FROM 
9232 :RHCS3 
9333 026642 0014901 BEG =iséG7G ‘BRANCH IF GOOD 
9234 Oess44 74115 ERROR 115 
9335 AFTER SETTING “CLR” BIT #5 
9336 ‘IN RHCS2 TO INIT THE RH 
9337 :ONE WORD OF ALL ONES IS 
9338 ‘WRITTEN: ON THE DEVI 
§339 :A WRITE .CHECK WAS 
9340 ON AN ODD WORD BOUNDARY THEN 
934i :RHCS3 SHOULD HAVE DBL!WCEOM 
9342 =12000: 
9343 ‘BUT CONTAINED WHAT IS 
9344 :GIVEN IN BAD RHCS3 
8345 O26b4E 675: 
$347 
9246 O2664£ 004737 o40322 ISR PC, awBCLDISK GIVE RH INITIALIZE 
9349 | ‘SETUP UNIT NUBER : 
$360 : CLEAR RHiic AND FUNCTION BITS IN RHCS! 
9352 
9353 CHECK THAT RHCS1_ HAS RDY!DVA 
g254 O26eS2 012737 oD4200 001124 MOY wRDY!DVA,SGDDAT ;GET GOOD = 4200 
9356 O2tEE0 017737 iSS174 O0112¢ MOV @RHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
9357 Seeese 023737 O01124 Oolize CMP - $GDDAT; SSDDAT i COMPARE EXPECTED 
3358 ;DATA WITH DATA READ FROM 
$360 O26674 901401 BEG Sis ‘BRANCH IF GOOD 

361 CZEE7E 1041! ERROR 116 


936e sAFTER SETTING “CLR” GIT #& 


H14 
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SERHAC.F1! T35 RHCSS-WCE BIT #14 AND RHCS3-WCE OW BIT Ble , 
9363 -IN RHCS2 TO INIT THE RH 
9364 -ONE WORD OF ALL ONES IS 
S365 ;WRITTEN ON THE DEVI 
9366 -A WRITE CHECK 
3367 :ON AN ODD WORD BOUNDARY THEN 
3368 -AN RH CLEAR (RHCS2 BIT #5) 
9369 ;WAS GIVEN THIS SHOULD 
§270 ‘CLEAR ALL ERRORS 
9371 ;RHCS1 SHOULD HAVE RDY!DVA 
9372 =420 
937 BUT CONTAINED WHAT IS 
9374 ‘GIVEN IN BAD RHCS1 
9375 026700 698: 
9376 “CHECK THAT RHCS2 HAS IR 
9377 026700 012737 o00100 001124 MOY #IR, SGDDAT -GET GOOD = 100 
3378 026706 053737 905019 ool124 BIS UNIT. $GDDAT ‘INCLUDE UNIT NUMBER 
9380 714 017737 155:50 001126 MOV -READ RHCS2 FOR OMPARISON 
$354 ASPs Bh 553s AB; 134 5Bt TSE CMP SBb52F SBbpat OE PARE Poor Rh 
$382 De ATA WITH BATA READ FROM 
9384 026730 o01401 BEG 71 : BRANCH IF GOOD 
9285 O26732 19411? ERROR 117 
9386 -AFTER SETTING “CLR” BIT #5 
92987 -IN RHCSe TO INIT THE RH 
9292 ONE WORD OF ALL ONES IS 
9339 ‘WRITTEN ON THE DEVICE 
9390 -Q WRITE CHECK WAS DONE 
939! -ON AN ODD WORD BOUNDARY THEN 
9292 -AN RH CLEAR (RHCS2 BIT #5) 
9392 :WAS GIVEN THIS SHOULD 
9394 ‘CLEAR ALL ERRORS 
9395 ; RH HCS2 SHOULD HAVE IR 
9296 =100 
9397 STOGETHER WITH UNIT NUMBER 
9298 ‘BUT CONTAINED WHAT IS 
939 :GIVEN IN BAD RHCS2 
9400 026724 713: 
9401 “CHECK THAT RHCS3 HAS O 
aie 026734 012737 o00000 001124 MOV #0, SGDDAT -GET GOOD = 0 
9404 O26742 017737 ISSIE4 O01i26 MOV JRHCS3,$BDDAT  ;READ RHCS3 | FOR COMPARISON 
9495 026750 022737 091124 o01126 CMP SGDDAT.$BDDAT  :COMPARE EXP 
a406 :DATA WITH ABTA READ FROM 
9498 . 926756 001401 BEG 73 BRANCH IF GOOD 
9409 G26760 104120 ERROR lec 
9410 -AFTER SETTING “CLR” BIT #5 
Q41] -IN RHCSe TO INIT THE RH 
9412 ‘ONE WORD OF ALL ONES IS 
9413 :WRITTEN ON THE DEVICE 
9414 “A WRITE CHEC DON 
Qy15 ‘ON AN ODD WORD BOUNDARY THEN 
Q416 ;AN RH CLEAR (RHCS2 BIT #5) 
9417 WAS GIVEN THIS SHOULD 


S4i6 CLEAR ALL ERRORS 


Re ANee ett ~DERHAG=6 = 


026762 
026762 
026770 
026776 


027004 
027006 


027010 
027010 
027016 
027024 


027032 
027034 


027036 
027036 
027044 
027052 


C27060 


012737 
017737 
023737 


001401 
104121 


012737 
017737 
023737 


001401 
104122 


012737 


0177237 
023737 


001451 


seat? 


000000 O011e4 


155070 001126 
OC1iie4 OO011e6 


000000 Oo0i12e4 


iS5106 001126 
O01le4 OOl126 


000000 001124 


15SCle 001126 
001124 O0112e6 


09-5 
#14 AN 


7S$: 


773: 


"Rhes3-ué 


wi 


"ow BET al2 


sRHCS3 SHOULD HAVE 0 
+3 a! NRO WHAT IS 
:GIVEN IN BAD RHCS3 


;GET GOOD = 0 
;READ RHBA FOR COMPARISON 
COMPARE EXPECTED 
spare WITH DATA READ FROM 
4 ‘BRANCH IF GOOD 
; AFTER SETTING “CLR” gl ao 


“CHECK THAT RHBA HAS OD 
MOV #0, SGDDAT 


MOV JRHBA, SBODAT 
CMP SGDDAT , SBDDAT 


BEG 
ERROR 


U AVE 0 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHBA 


sCHECK THAT ne HAS 0 
MOV #0, SGDDAT ;GET GOOD = Q 

;READ RHBAE 4 COMPARISON 
:COMPARE EXPECT 

DATA WITH DATA READ FROM 
77$ ‘BRANCH IF GOOD 


BEQ 
ERROR lee 
; AFTER SETTING “CLR” BIT #5 


JRHBAE , SBDDAT 
$GDDAT , $BDDAT 


MOV 
CMP 


WORD 
{WRITTEN ON THE 
;A WRITE CHECK WA NE 
-ON AN ODD Ww BOUNDARY THEN 
;AN RH CLEAR (RHCS2 BIT #5) 
;WAS GIVEN THIS SHOULD 
;CLEAR ALL ERRORS 
;RHBAE SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 

:GIVEN IN BAD RHBAE 


“CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT 


MOY JRHWC , SBDDAT 
CMP $GODAT, SBODAT 


;GET GOOD = 0 


*READ RHWC oon COMPARISON 
: COMPARE EXPECTED 

spaTA WITH DATA READ FROM 
: BRANCH IF GOOD 


BEG 798 


J14 
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DESHRC. P11 T35 RHCS2E-WCE SIT #14 AND RHCS3-WCE OW BIT a#le 
S475 O2706e 104122 ERROR 123 
9476 “AFTER SETTING “CLR” BIT #5 
9477 : IN RHCS2e TO INIT THE RH 
9473 : ON NE WORD OF ALL ONES IS 
347 sHATTTEN ON THE Ys 
394eC WRITE CHECK WAS D 
948i gh AN ODD “wi BOUNDARY THEN 
9482 N RH CLEAR (RHCS2 BIT #5) 
94823 WAS GIVEN THIS SHOULD 
$484 ‘CLEAR 1 ae 
9485 : RHW HWC SHOULD HAVE 0 
9486 : BUT CONTAINED WHAT IS 
9487 : GIVEN IN BAD RHWC 
9488 027064 73$: 
94893 
zt 
9432 + ERK KK AEA ARAL RAA ALARA KEES R ELLE ERA LRA R REARS EEL L LALLA LER TESS 
aE : ETEST 36 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 
9495 : CLEAR THE SUBSYSTEM BY A oo CLEAR (RHCS2e SIT #5) 
Gy Se i WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 
3497 : & SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 
3498 .# yen anno GR MR 
94399 - 0 A ONE W WRITE CHECK WITH RHBA FROM AN 
9500 * EVEN WORD BOUNDARY 
950! . THIS SHOULD SET WCE alts (RHCS3 BIT #11) 
9502 AND “ (RHCSe BIT 
9503 . "CLR” (RHCS2 BIT sS) ig GIVEN 
9504 . # ALL ERRORS ARE CLE 
ae : CHECK RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 
9507 + KEELE REALL ERE L ER EE REELS RARER AERA ARE ALR ERARESRRARALAE RAL ERLE SLE ES 
9508 027064 ooco04 téT36: SCOP 
95098 027066 Oi270& 901000 MOV #STACK, SP -RESET STACK 
eet° 027072 012737 O00036 OO4ESE MOV #36, JeTSTNM : SAVE TEST NUMBER 
95le 027100 004737 O4032e JSR PC, a#CLOISK -GIVE RH pee eee 
9513 *-SETUP UNIT NUBER fe 
eete : CLEAR RHWC AND FUNCTION BITS IN RHCS! 
SS1E -WRITE ONE _— OF ALL ONAL ON THE aM 
Sie Belle GEE Ae TRE TRY ERAS Rtn Ubeo Poe GORD CRONE geazeze@ 
ale HBCLAG GLECEP Abteg LBsP4 Yael Mhen UN By RH a a SR 
9521 627126 004077 155506 JSR RO, JCOMND -GO TO DO COMMAND 
a255 627132 04154 =» WRIDAT -WRITE DATA 
9524 -SET UP 4 WRITE CHECK 
9525 027134 005037 003000 éLR = WRITE DATA FOR WRITE CHECK ERROR 
9526 027140 012777 177767 154714 MOV JRHWC NI NE WORD FOR WORD COUNT REGISTER 
952¢7 O2e7146 012777 003000 154710 MOV +3. JRHBA -WRITE FROM BUFFER dak BUS ACCRESS 
9528 “FROM EVEN WORD BOUNDRY 
9529 - WRITE CHECK ON EVEN WORD BOUND 


DARY 
S830 Oe71S4 004077 1°5460 JSR RO, JCOMND ;GQ TO DO COMMAND 


hee Pit tae 


RHAC.P 1) 


027160 


027162 
027170 


027176 
027204 


027216 


O27E16 


7852 
oS 7eu2 


027244 


027244 


T36 
004150 


012737 
053737 


012737 


7737 
3737 


004737 
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040300 
005010 


1S4666 
001124 


006000 


081125 


040322 


001124 


001188 
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RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


6s$: 


$7$: 


;WRITE CHECK DATA 


;GET GOOD = 


40300 


; INCLUDE UNIT NUMBER 


cone RHC RC OER FOR ioe 
Ay 

A WITH DATA READ FROM 
tt (Sp 
:BRANCH IF GOOD 


WRCHEK 
;CHECK THAT RHCS2 HAS WCE!OR! IR 
MOV BWCE! OR! IR, SGDDAT 

BIS UNIT, -$coDdaT 

MOV HCS2, $BD 

CMP scnbe ‘Seppat 

BEQ 65$ 

ERROR 114 


;AFTER SETTING ‘+t BIT #5 
THE RH 


IN RHCSe TO INIT 
a OF AL 
TTEN ON THE Oe ine 


f at het yEHECK 








;sCHECK THAT RHCS3 HAS DBL! WCEEW 
#DBL! WCEEW, SGDDAT 


MOV 
MOV 
MP 


JSR 


ere 


fis 


PC, aeCLOISK 







ONES IS 


THEN 
b HAVE UGE! OR! IR 


T4030 
jTOGE THER WITH UNIT NUMBER 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS2 


;GET GOOD = 6000 


i CSRP RHC OrR FOR estates 


:DATA WITH ATA READ FROM 


:RHCS3 

;BRANCH IF GOOD 

; AFTER et “CLR” BIT aS 
; IN Hi yy BY oct : te 
SURITIEN. N 


:A ee 
ON AN 


HOE 





Y THEN 


;RHCS3 SHOULD HA HAVE. D DBL WCEEM 


‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 


;GIVE RH INITIALIZE 


EDM 


;CHECK THAT RHCS1 HAS ROY!DVA 


NIT NU 
HWC AN 


B FUNCTION BITS IN RHCS. 
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027250 Ole737 004200 001124 MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 
7256 773? «6154576 001126 MOV RHC 1 948 RHCS1 FOR COMPARISON 
BB 64 3355 a3, 01124 001126 CMP eobat SEbbAT :EEMPARE EXPEC TE 
Sara Th DATA READ FROM 
C27e7e 091401 BEG 69$ ;BRANCH IF GOOD 
O2e7e74 104116 ERROR 116 





14 R ncSe 10h Tf THE “hi aS 







ON 

ag ORITIEN. ON RF ES sores. is 
$033 iA WRI TE CHECK WAS 

1 -AN RH RI ENR (RHC 
3602 ae N THIS 8 SHOULD 
a8 1 SHOULD Hav HAVE RDY!DVA 
9606 ate SP ONTAINED WHAT IS 
9607 :GIVEN IN BAD RHCS1 
S608 027276 693: 
9609 “CHECK THAT RHCS2 HAS IR 
9610 027276 012737 OO0100 001124 MOV #IR, $GDDAT -GET GOOD = 100 
$611 027304 053737 oO0SCiO 901124 BIS UNIT, $GDDAT ‘INCLUDE UNIT NUMBER 
9613 027312 017737 1S54SS2 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
9615 02732 3737 001124 OO112¢ CMP SGDDAT,$BDDAT  ;COMPARE EXP 
615 DATE WITH DATA READ FROM 
ap i3 027326 90140) *BRANCH IF GOOD 
9618 927330 104117 
619 yi : " ‘it LR" 81 
a5 ONE WORE Tue fe 
s05 aay BAcCk WA avi. 
96204 AN EVEN. WORD. b BOUNDARY THEN 
9625 BIT #5) 
Q626 AS RAIVEN ATS <reULD 
9627 “CLEAR ALL ERROR 
628 iRH RHCS2 SHOULD HAVE IR 
9630 uy conte WITH ba NUMBER 
3631 TAINE 
96 IVEN IN SAB RHCS2 
9633 627332 
9634 “CHECK THAT RHCS HAS O 
3639 027332 012737 o90000 001124 OV #0, SGDDAT :GET GOOD = 0 
9637 027340 017737 1S4S6B 001126 JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
9638 027346 0237327 O01124 001126 $GDDAT.$BDDAT  :COMPARE EXPECTED 
9639 ‘DATA WITH DATA READ FROM 
9640 :RHCS 
9641 027354 001401 *BRANCH IF GOOD 
9642 027356 104120 


M14 
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HAC. P11 T36 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 
9643 ‘AFTER SETTING “CLR” BIT #5 
e448 IN RHCS2 TO I NIT THE RH 

46 ‘WRITTEN ON T V a 
3647 -@ WRITE CHECK WAS DONE 
9648 -ON AN EVEN WORD BOUNDARY THEN 
9649 -AN RH CLEAR (RHCS2 BIT #5) 
9650 ‘WAS GIVEN THIS SHOULD 
9651 -CLEAR ALL ERROR 
9652 *RHCS3 SHOULD HAV 
9653 ‘BUT CONTAINED WHAT IS 
9654 -GIVEN IN BAD RHCS3 
9655 027360 738: 
9656 “CHECK THAT RHBA | HAS 9 
3657 027360 012737 oo0000 001124 MOV #0, SGDDAT -GET GOOD = 0 
oj CS QE AEN GEE «=O RSNSTEREE, RSRReE pee gprs 
sob] pit NETH Data TR READ FROM 
se nee St Sion TES any tha, 
9665 cnTER SETTING “CLR” BIT #5 
9665 -IN RHCSe TO INIT THE R 
9667 -ONE WORD OF ALL ONES Ts 
9668 ;WRITTEN ON THE 
9659 *A WRITE CHECK WAS DONE 
9670 -ON AN EVEN WORD BOUNDARY THEN 
9671 “AN RH CLEAR (RHCS2 BIT #5) 
9672 WAS GIVEN THIS SHO 
9673 “CLEAR ALL ERRORS 
9674 *RHBA SHOUL 
9675 : BUT CONTAINED y at IS 
9676 -GIVEN IN BAD RHBA 
9677 027406 753: 
9678 “CHECK THAT RHBAE HAS O 
3673 027406 012737 oo0000 901124 MOV #0, SGDDAT :GET GOOD = 0 
9681 027414 017737 154510 001126 MOV JRHBAE.SBDDAT  ;READ RHBAE of OR COMPARISON 
9682 027422 023737 601124 OOlli26 CMP SGDDAT;S$BDDAT COMPARE EXP 
3683 DAT Q WITH DATA READ FROM 
9685 027430 O01401 BEQ 773 t BRANCH IF GOOD 
9686 027432 104122 ERROR 122 
9687 sAFTER SETTING “CLR” BIT #5 
9688 -IN RHCS2 TO INIT THE RH 
9689 ‘ONE WORD OF ALL ONES IS 
9630 ; WRITTEN ON THE VICE 
631 -A WRI : HECK DONE 

9 -ON AN EVEN NORD OUNDARY THEN 
9693 “AN RH CLEAR (RHCS2 BIT #5) 
9694 ‘WAS GIVEN THIS SHOULD 
9695 ‘CLEAR ALL ERRORS 
9696 : RHBAE SHOULD HAVE 0 
9697 ‘BUT CONTAINED WHAT IS 


56° ;GIVEN IN BAD RHBAE 


Re ee et Se te ee . . -~-s § ._* - 


nal a jf ene 
DERHAC.P11 


027434 . 


027434 
7442 
Ta 


027456 
027460 


027462 


027462 
027464 
027470 


027476 


027502 
7 ts 
1 


027524 


T36 


012737 


017737 
023737 


001401 


104123 


ofoo04 
012706 
012737 


004737 


012737 
12777 
12777 


004077 


MACYL1 27(732) 


000000 O011e4 


154414 OQ01126 
001124 O011e6 


001000 
000037 


040322 


§ 


177777 
77767 
04210 


155110 


OO4656 


004210 


1B43N0 


° 
See we we ee ee @e @ewewe wee @ 
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975: 


793: 


-CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 


MOV DRHWC,SBDDAT  § ;READ RHWC FOR COMPARISON 
CMP ScOOAT, SBDDAT ; COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


: RHW 
;BRANCH IF GOOD 


th Rac8e 10 nr Tre ay 


ae ON. THE” gEVICE 
aN EVEN HOaD BOUND ge 


yal eo go? 


at 
5C 
‘BUT. CONTAIN NED Hi HAT IS 
-GIVEN IN BA 


BEG 795 
ERROR 123 


. 


acy a? GD AEE BIT 014 GD MCGPE EU IT ali 


WE WK IK Dic Dic KOK DK OK Dic ik me. 


+8737 


T 37 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
WRITE NINE WORD OF ALL NINES ON TO THE DEVICE 

SET UP TO DO WRITE CHECK ON THAT WORD FROM AN 
EVEN, WORD BOUNDARY 

DO A’ ONE WORD WRITE CHECK WITH RHBA FROM AN 

EVEN WORD BOUNDARY 

THIS, SHOULD SET WCE FH (RHCS3 BIT #11) 


AND WCE (RHCSe oie 


"CLR" (RHCS2 BIT #5) IS GIVEN 
E CLEARED 


E L 
' CHECK. RHCS1, RHCS2, RHCS3, RHBA, RHBAE, RHWC 
sgaae °° atm ccetecn a enmeae accent anette 2, 


MOV #STACK, SP :RESET STACK 
MOV #37, J8TSTNM “SAVE TEST NUMBER 


JSR PC, JNCLDISK GIVE RH INITIALIZE 
SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS1 
“WRITE ONE WORD OF ALL oF on ate DEVICE 
oy no oRaie NIN ld TFOR WORD COUNT RE 
MOV +3) gH EBA in .. N08 UFFER Inte e BUS Gia TER. 
JSR RO, ICOMND ‘a TO DO COMMAND 


i ee 


MAINDEC-11-DERHAC-A 
ODERHAC.F11 


027530 


027532 
027536 
027544 


027552 
027556 


0297574 
027602 


027610 
02761le 


027614 


027614 
027622 
027630 


027636 
027640 


T37 
004154 


00$037 
Ole777 
012777 


004977 
004150 


012737 
053737 


017737 
023737 


001401 
104114 


012737 
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003000 
177767 
003000 


155062 


040300 
005010 


154270 
001124 


154316 
1S43le 


001124 
001124 


001126 
001126 


006009 001124 


154304 001126 
O0011e4% O0lieb 


B15 
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RHCS2-WCE SIT #14 AND RHCS3-WCE EW BIT #1! 


ES$: 


WRIDAT “WRITE DATA 
-SET UP FOR WRITE CHECK 
ALR BUFEH ; WRITE DATA FOR WRITE CHECK ERROR 


MOV HWC NINE WORD FOR WORD COUNT REGISTER 
MOV saurtw. aJRHBA i MRITE FROM BUFFER INTO BUS ADDRESS 


FROM Bae WORD BOUNDRY 
“WRITE CHECK ON EVEN WORS BOUNDA 
JSR RO, JCOMND -GO TO DO COMMAND 
WRCHEK : WRITE RHE CK DATA 


‘CHECK THAT RHCS2 Qttes WCE! OR! IR 
MOV BWCE! OR! T 
BIS UNIT, *scooat : INCLUDE UNIT NUMBER 


MOV JRHCS2,$BDDAT  ;READ RHCSe FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 

sDATA WITH DATA READ FROM 
t BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
; IN RHCSe TO INIT THE RH 
;ONE WORD LL I 


;GET GOOD = 40300 


BEQ 65$ 
ERROR 114 


; ON VE 
pRHCSS SHOULD HAVE WCE!OR! IR 


03 
: TOGETHER WITH UNIT NUMSER 
;BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


“CHECK THAT RHCS3 HAS DBL! WCEEW 
MOV #DBL' WCEEW, SGDDAT :GET GCOD = 6000 
MOV JRHCS3, SBDDAT READ R RHCS3 FOR. COMPARISON 
CMP SGDDAT: $BDDAT ; COMPARE 

:DATA ITH AATAS READ FROM 


:RHCS3 
;BRANCH IF GOOD 


BEQ 673 

ERROR 115 
sAFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 
;ONE_WORD OF ALL IS 
sWRITTEN ON THE E 


K WAS DONE 
-ON AN E WORD BOUNDARY THEN 
sRHCS 3 SHOULD HAVE DBL!WCEEW 


=600 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


oe ~ —_« = ~2+= - oon 


‘ _— —_—<—“—<——F © «= — ee | 


- -_———— —————— a me ae 


C15 
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DERHAC.P11 137 + - RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT #11 
9811 O27642 67$: 
815 
9814 027642 004737 040322 ISR ——- PC, aBCLDISK ;GIVE RH INITIALIZE 
3915 :SETUP UNIT N 
a1? ‘CLEAR RHIC SND FUNCTION BITS IN RHCS! 
9818 
9819 “CHECK THAT RHCS1 HAS RDY!DVA 
9820 Oe7s46 012737 004200 001124 MOV. #RDY'DVA,SGDDAT ;GET GOOD = 4200 
9822 027654 017737 154200 001126 MOV ARHCS1,$BDDAT ;READ RHCS1 FOR COMPARISON 
9823 027662 023737 001124 OOlle6 CMP $GDDAT’SBDDAT COMPARE EXPECTED 
9824 ‘DATA WITH DATA READ FROM 
9825 *RHCS1 
9826 027670 00140! BEQtiéSG ‘BRANCH IF GOOD ° 
9827 O27672 104116 ERROR 1i6 pea 
9828 -AFTER SETTING “CLR” BIT #5 
9829 IN RHCS2 TO INIT THE RH 
9830 ‘ONE WORD OF ALL ONES IS 
9831 ‘WRITTEN ON THE DEVICE 
9832 °A WRITE CHECK 
9933 ‘ON AN EVEN WORD BOUNDARY THEN 
9934 -AN RH CLEAR (RHCS 
9835 [WAS GIVEN THIS SHO 
9836 EAR ALL ERRO 
9837 ;RHCS1 SHOULD HAVE RDY!DVA 
9839 | ‘BUT CONTAINED WHAT IS 
9840 ‘GIVEN IN BAD RHCS1 
9841 027674 69S: 
ggu2 -CHECK THAT RHCS2 HAS IR 
9843 027674 012737 000100 001124 MOY IR, $GDDAT GET GOOD = 100 
ge44 Oe7702 053737 005010 ODlle4 BIS UNIT. $GDDAT INCLUDE UNIT NUMBER 
9846 027710 017737 154154 001126 MOV -—s MRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
9847 027716 023727 001124 OOlles CMP  §GDDAT;S$BDDAT  :COMPARE EXPECTED 
9048 : :DATR WITH DATA READ FROM 
9850 027724 901401 BEQSsi‘é7*LS ‘BRANCH IF GOOD 
9851 027726 104117 ERROR 117 
9852 AFTER SETTING “CLR” BIT a5 
9953 ;IN RHCS2 TO INIT THE R 
9e54 : :ONE WORD OF ALL ONES is 
9gcs ‘WRITTEN ON THE DEVICE 
9e56 “AW WRITE CHECK WAS DONE 
9857 ON AN EVEN WORD BOUNDARY THEN 
gece AN RH CLEAR (RHCS2 BIT #5) 
9859 ‘WAS GIVEN THIS SHOULD 
9860 CLEAR ALL ERR 
9861 ;RHCSe SHOULD HAVE IR 
9e¢2 =100 
9263 ‘TOGETHER WITH UNIT NUMBER 
9564 ‘BUT CONTAINED WHAT IS 
gEE5 -  IGIVEN IN BAD RHCS2 


9866 027730 71S: 


D1S 
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DERHAC.P11 137 RHCS2-WcE BIT #14 AND RHCS3-WCE EW BIT #11 
9867 “CHECK THAT RHCS3 HAS O 
2868 027730 012737 o00000 001124 MOV #0, SGDDAT -GET GOOD = 0 
9870 027736 017737 154170 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
3871 027744 023737 001124 001126 CMP SGDDAT,$BDDAT  :COMPARE EXP 
3876 sara WITH BATA READ FROM 
ra 
9874 027752 901401 BEQ 73$ :BRANCH IF GOOD 
9875 6007754 104120 ERROR 120 so 
9876 -AFTER SETTING “CLR” BIT #5 
9877 -IN RHCS2 TO INIT THE RH 
9878 “ONE WORD OF ALL ONES IS 
9879 ~WRITTEN ON THE DEVIC 
98280 -A WRITE CHECK WAS DON 
9881 “ON AN EVEN WORD BOUNDARY THEN 
9882 -AN RH CLEAR (RHCS2 BIT 
9883 ‘WAS GIVEN THIS SHOUL 
9884 -CLEAR ALL E 
gess *RHCS3 SHO 
9886 -BUT CONTAINED WHAT IS 
9897 :GIVEN IN BAD RHCS3 
9888 027756 733: : 
ges “CHECK THAT RHBA HAS 0 
3830 027756 012737 oOD000 001124 MOV #0, SGDDAT -GET GOOD = 0 
9892 027764 017737 154074 901126 MOV JRHBA,SBDDAT  § ;READ RHBA FOR COMPARISON 
9893 027772 023737 601124 001126 CMP SGDDAT,SBDDAT COMPARE EXPECT 
3834 :DATA WITH DATA READ FROM 
9896 O030090 001401 BEQ 75$ ‘BRANCH IF GOOD 
9897 O30002 104121 ERROR 121 
9298 -AFTER SETTING “CLR” BIT #5 
9899 -IN RHCS2 TO INIT THE RH 
9900 ‘ONE WORD OF ALL ONES IS 
9901 “WRITTEN ON THE DEVICE 
g -A WRITE CHECK WA 
9903 -ON AN EVEN WORD BOUNDARY THEN 
9904 -AN RH CLEAR (RHCS ‘ 
990s -WAS GIVEN THIS 
9906 “CLEAR ALL E 
9907 ;RHBA SHOULD HAVE 0 
g9o¢ ‘BUT CONTAINED WHAT IS 
9909 -GIVEN IN BAD RHBA 
9919 o30004 75S: 
9911 ‘CHECK THAT RHBAE HAS O 
31 029004 012737 oO00000 o01124 MOV #0, SGDDAT :GET GOOD = 0 
4 
9914 020012 017737 154112 001126 MOV @RHBAE,SBDDAT  ;READ RHBAE FOR COMPARISON 
9915 030020 9023737 001124 OO01126 CMP SGDDAT. $BDDAT ; COMPARE EXP 
3316 ; DATA WITH DATA READ FROM 
9918 020026 001401 BEG 775 t BRANCH IF GOOD 
99:3 020030 104122 ERROR 122 
9529 -AFTER SETTING "CLS" BIT #5 
9921 -IN RHCS2 TO INIT THE RH 


9922 -ONE WORD OF ALL ONES IS 


*~ 


E15 
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RHAC P11 T37 RHCS2-WCE BIT #14 AND RHCS3-WCE EW BIT all 

3923 Py HL ON THE DEVICE 

9924 WRITE CHECK WAS DONE 

9925 ‘ON AN EVEN WORD BOUNDARY THEN 
9926 N RH CLE “2 BI ) 
3927 *>WAS GIVEN THIS. SHOULD 

9925 *CLEAR ALL ERRO 

9323 *RHBAE SHOULD HAVE 0 

9930 : BUT CONTAINED WHAT IS 

9931 : GIVEN IN BAD RHBAE 

9932 030032 773: 

9933 -CHECK THAT RHWC HAS 0 

eae 030032 012737 O00000 001124 MOV #0, SGDDAT -GET GOOD = 0 

9936 O30040 017737 154016 OO0ll26 MOV ARHWC , SBDDAT READ RHWC FOR COMPARISON 

9937 030046 023737 001124 O01126 CMP $GDDAT,$BDDAT  ;COMPARE EXPECTED 

sone : DAT A WITH DATA READ FROM 

9940 030054 o0140i BEQ 793 : BRANCH IF GOOD 

9941 930056 104123 ERROR 123 

9942 AFTER SETTING “CLR” BIT #5 
9943 -IN RHCS2 TO INIT THE RH 

Sou ONE WORD OF ALL ONES IS 

994s ; WRITTEN ON THE DE 

9946 *-A WRITE CHECK WAS DONE 

9947 : ON AN EVEN WORD BOUNDARY THEN 
9948 - AN RH CLEAR (RHCS2 Bat 85) 
9343 “WAS GIVEN THIS SH 

9350 ; CLEAR ALL E 

99s! *RHWC SHOULD HAVE 0 

9952 : BUT CONTAINED WHAT IS 

9953 : GIVEN IN BAD RHWC 

9954 030060 733: 

gsss 

9956 

gate 

9959 Pbk peegompeggge ot yt cgges et = rey yg + veneers remte ee QS 
aare -*TEST 40 TEST DBL (RHCS3 BIT #10) TEST A 

9962 : CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
9963 of SET UP FOR A NINE WORD WRITE FROM AN EVEN WORD BOUNDARY 
9964 - DO A NINE WORD WRITE FROM AN EVEN WORD BOUNDARY 

996° . THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

SSEE : CHECK RHCS3 

gh : CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

9Sé3 PPTTTTETTETTTTTTTETTCTTTTTCTTETTTETTTCTTTTTETETTC TEC TS TTC CT TTT ST 
9970 O0230060 oj00004 +éTu0: SCOPE 

9971 O3006e O12706 091000 MOV #STACK, SP sRESET STACK 

2372 030086 012737 OO0040 oo4EsE MOV 840, a8TSTNM “SAVE TEST NUMBER 

9974 030074 004727 940322 JSR PC, ad#CLDISK ;GIVE RH grt Ae 

9975 : SETUP UNIT NUBER 

aa09 : CLEAR RHWC AND FUNCTION BITS IN RHCS] 


9978 ;SET UP FOR A NINE WORD WRITE FROM AN EVEN WORD BOUNDARY 


——_— ee ee ee 
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OERHAC. P11 T4Q TEST OBL (RHCS3 BIT #10) TEST A 


9979 030100 012791 000003 MOV #3,R1 -COUNT OF THREE 
9989 030104 Ole702 003000 MOV #BFEVEN, R2 -START THREE WORD BUFFER 
9981 -FROM AN EVEN WORD BOUNDARY 
9982 030110 012722 oSes5e25 1S: MOV wS2525,(R2)+ MOVE THREE S2S2S INTO BUFFER 
3983 930114 005301 DEC Ri : COUNT 

9984 030116 001374 BNE 1$ *BRANCH IF THREE NOT DONE 
9985 020120 012777 003000 153736 MOV SBFEVEN,JRHBA :SET BUS ADDRESS TO START 
9986 ;EROM BN EVEN WORD BOUNDARY 
9987 030126 012777 177767 153726 MOV #-9..dRHWC ;WORD COUNT NIN 

9988 030134 o04077 154500 JSR RO,aCOMND :GO TO 0 COMMAND 

9989 930140 Oo41S4 WRIDAT -WRITE DATA 

9990 

9991 

9992 “CHECK THAT RHCS3 HAS 0 

2333 030142 012737 oOo0000 001124 MOV #0, SGDDAT :GET GOOD = 0 

9395 029:50 017737 153756 O01126 MOV JRHCS3,.$BDDAT  ;READ RHCS3 FOR COMPARISON 
9996 030156 023737 &Fi:34 Aolis6 CMP $GDDAT;$BDDAT  ;COMPARE EXPECTED 

9997 ‘DATA WITH DATA READ FROM 
9998 :RHCS3 

9999 _O30164 o0140! BEG 65$ ‘BRANCH IF GOOD 

19000 O30166 104124 ERROR 124 

10001 AFTER SETTING ToLR BIT #5 
10002 -IN RHCSe TO INIT THE RH 
10003 ‘A NINE WORD WRITE FROM A 
10004 “EVEN WORD BOUNDARY WAS BONE 
19095 : THEN 

10006 *RHCS3 SHOULD HAVE 0 

19007 ‘BUT CONTAINED WHAT IS 
19008 -GIVEN IN BAD RHCS3 

10003 630170 SS: 

10010 030170 o4e777 CO007 153662 BIC 876, JRHCS1 ;CLEAR FUNCTION BITS 

10011 “CHECK THAT RHCS1 HAS RDY!DV 

10012 020176 012737 oc4200 001124 MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 

10014 039204 017737 153650 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 of OR COMPARISON 
1001S O302ei2 023737 O01124 401126 CMP $GDDAT;$BDDAT :COMPARE EXPECTED 

1O01€ ‘DATA WITH DATA READ FROM 
10017 *RHCS1 

10018 oO30220 o0140! BEG 67 *BRANCH IF GOOD 

10019 O20222 104125 ERROR 125 

10026 :AFTER SETTING wcLR" BIT #S 
10021 :IN N RHCS2 TO INIT THE aH 
10022 A NINE WORD WRITE FROM 
10023 iEVEN WORD BOUNDARY WAS BONE 
002s iRHCSL SHOULD HAVE RDY!DVA 
10027 ‘BUT CONTAINED WHAT IS 
10028 ‘GIVEN IN BAD RHCS1 

19023 o20224 673: 

10030 “CHECK THAT RHCS2 HAS IR 

10031 030224 012737 000100 001124 hoy #IR, SGDDAT :GET GOOD = 100 

10032 020232 953737 o0SO10 001124 BIS Sait. $GDDAT - INCLUDE UNIT NUMBER 

19034 C20249 017737 153624 o01126 MOV DRHCS2,$B0DAT  ;READ RHCS2 FOR COMPARISON 


MBAINOEC-11-DERHAC-A 
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020246 


030254 
030256 


030260 
030260 
C30265 
030274 


030302 
030304 


030308 


C3030€ 
030310 
030314 


030322 


023737 


0ie737 
017737 
023737 


001401 
104131 


000004 
012706 
012737 


004737 
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001124 001126 


OSSS00 001124 


153570 O011le6 
001124 OO0lieb 


001000 
OGOC4: OO4ESE 


04032e 


a“, 


09-SEP-76 97:55 PAGE i88 
TEST OBL (RHCS3 BIT #10) TEST A 


69$: 


71$: 


CMP $GDDAT , SBDDAT ‘DATA li EXPECTED 


* ATA WITH DATA READ FROM 
: BRANCH IF GOOD 


; AFTER SETTING “CLR” BIT #5 
N RHCSe TO INIT THE ans 
i: NNINE WORD WRITE FROM A 
;EVEN WORD BOUNDARY WAS ONE 


H 
RHC SHOULD HAVE IR 
TOGETHER WITH tt eer 


*BUT CONTAINED 
:GIVEN IN BAD RHCS2 


SEQ 69$ 
ERROR 1e6 


“CHECK THAT RHWC HAS 0 
MoV #0, SGDDAT -GET GOOD = 0 


MOV JRHWC,SBODAT = ;READ RHWC FOR COMPARISON 
CMP $GDDAT , SBDDAT COMPARE EXPECTED 
ATA WITH DATA READ FROM 
713 pe IF GOOD 


BEG 
ERROR 1431 
;AFTER SETTING ft BIT #5 


M AN 
: EVEN WORD BOUNDARY AS DONE 


; THEN 

sRHWC SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHWC 


- LELELAAAAAL ALARA ASA AAA LA LAA ALARA ERERLLELERELAREALARARFRRELEFERE 


: ETE ST 41 


+éTu1- 


TEST DBL (RHCS3 BIT #10) TEST B 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
SET at FOR A TEN WORD WRITE FROM AN EVEN WORD BOUNDARY 
DO A TEN WORD WRITE FROM_AN EVEN WORD BOUNDARY 

eke see SET RHCS3 BIT #10 DBL 

CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


ares Ree ener tars teen terete cre set ereaeetare eanmer eee 
COPE 


sRESET STACK 
;SAVE TEST NUMBER 


;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 
:CLEAR RHWC AND FUNCTION BITS IN RHCS1 


iy HSTACK, SP 
MOV 841, a8TSTNM 


JSR PC, aaCLOISK 


MRINDEC-11-DERHAC-A MACY11 27(732) OQO9-SEP-76 97:55 PAGE 189 
OERHAC.F11 T4) TEST DBL (RHCS3 BIT #10) TEST B 


19091 conan ieee aan SET UP FOR A TEN WORD waITE One AN EVEN WORD BOUNDARY 
ines 020332 Oi2702 003000 MOV SBtEVEN, Re ‘START THREE WORD BUFFER 
10094 -FROM AN EVEN WORD BOUNDARY 
1399S 030236 912722 os2525 13: MOV #52525, (R2)+ MOVE THREE S2S2S INTO BUFFER 
0096 030342 00530! DEC Ri : COUN 
10097 020344 001374 BNE 1$ BRANCH IF THREE NOT DONE 
19998 030346 012777 003000 153510 MOV #BFEVEN,dRHBA :SET BUS ADDRESS TO START 
190 :FR on AN EVEN WORD BOUNDARY 
19100 030354 012777 177766 153500 MOV #-10..aRHWC ;WORD COUNT 
10191 030362 004977 154252 JSR RO, JCOMND 160 1 ‘bo COMMAND 

de 0366 O041S54 WRIDAT ITE DATA 

04 

oS -CHECK THAT RHCS3 HAS DBL 

030370 012737 o0e000 001124 MOV #DBL , $GDDAT “GET GOOD = 2000 


2 
26 MOV RHCS3,$BDDAT ;READ RHCS3 ae COMPARISON 
26 CMP GDDAT;$BDDAT ;COMPARE EXPECTED 

:DATA WITH DATA READ FROM 


:RHCS3 
653 ;BRANCH IF GOOD 


7 

8 

9 

s 

1 

e Ol BEG 

3 24 ERROR = 1c4 

4 sAFTER SETTING “CLR” BIT #5 
S :IN RHCSe TO INIT THE +" 

6 -A TEN WORD WRITE FROM 

4 ; EVEN WORD BOUNDARY WAS “DONE 
; : RHCS3 SHOULD HAVE DBL 

l ‘BUT CONTAINED WHAT IS 

e -GIVEN IN BAD RHCS3 

: O3041E 65$: 

S 
6 
7 
ge 
P| 
0 
l 
c 


030416 o04e777 000976 153434 BIC #76, JRHCS1 CLEAR FUNCTION BITS 
“CHECK THAT RHCS1 HAS RDY!D 
030424 012737 ocO4e00 001124 MOV #RDY! DVA, SGDDAT "GET *G000 = 4200 


C30432 9017737 iS342e 001126 MOV MRHCS1,SBDDAT  ;READ RHCS1 4 COMPARISON 
O3044O 023737 001124 001126 CMP S$GDDAT , SBDDAT : COMPARE EXPECT 
‘DATA WITH DATA READ FROM 


030446 001401 BEQ 675 : BRANCH IF GOOD 

D30450 104125 ERROR 125 
sAFTER SETTING “CLR” BIT #& 
: IN N RHCS2 TO INIT THE RH 


2 

4 

S 

6 ROM AN 

; EVEN WORD BOUNDARY WAS DONE 
3 jRHCS1 SHOULD HAVE RDY!DVA 
1 

rs 

3 

4 

c 

S 


‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCSI 


030452 67$: 

r “CHECK THAT RHCS2 HAS I 
o204S2 012737 cO00100 001124 MOV 8IR, SGDDAT :GET GOOD = 100 
030460 052727 OOS5010 9001124 BIS UNIT, $GDDAT - INCLUDE UNIT NUMBER 


b= b= bb 8 bb bb 8 0 0 eb bs 8 he ho he bs 9 bs be bo bo be bs 8 bs bs B-2 Bs bo Bo 
ODOIDIVOVVOVOOO OVOOVOVOOOOO OOODVDVVONOOOVOOOMOVVOVVVOOVOVOVYD 
> 0—* b= b= — bb bs Bb = he 0 be 


o —_— as — — . 


DERMRESPLL tal 


S93 


oo 


OOOWWO wD OWWW OWWWOOWOOOOOOMOONI™) > SN NNO OOo o'oo 


MH—-OWO NOM LW -O WONT W-OWO ION £WT-OWM UP ULE orure 


030466 
030474 


0305092 
020504 


O30S06 
030506 
030514 
030S2e 


030530 
030532 


C30S34 


030534 
030536 
030S4e 


030550 


017737 
023737 


001401 
104126 


012737 
017737 
023737 


001401 
104131 


OCOCO4 
012706 
012737 


004737 


EY Hee” Fla BETS eR PIE 10 


153376 O01126 
001124 COlleb 


O000090 O0011e4 


153342 OO01126 
0011e4 001126 


001000 
OCO0%e OO4E56 


040322 


MOV 
CMP 


BEG 
ERROR 


69%: : 
“CHECK THAT RHWC HAS O 
MOV #0, SGDDAT -GET GOOD = 0 
MOV .. @RHWC,SBDDAT | ;READ RHWC FOR COMPARISON 
CMP - $GDDAT, SBDDAT ; COMPARE EXPECTED 
! ares ‘DATA WITH DATA READ FROM 
J) "9 *RHWC 
BEQ 21g *BRANCH IF GOOD 
ERROR i31 
-AFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
-A TEN WORD WRITE FROM AN 
“EVEN WORD BOUNDARY WAS DONE 
‘RHWC SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHWC 
713: 
© KEKEE KLARA EAAAAALAALLEAA AAA ALRAAAAARAAAAE) RELA AAAELARELARAELELE 
-&TEST 42 TEST DBL (RHCS3 BIT #10) TEST C 
x CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
: SET UP FOR A TEN WORD WRITE FROM AN ODD WORD BOUNDARY 
: x DO A TEN WORD WRITE FROM AN ODD WORD BOUNDARY 
: THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
: i CHECK RHCS3 
. CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


© REEEAELELREA SAREE A AAA AL AALARARARELELLL RELA RE LARARALARALELTFRAES 


tST42: SCOPE 
MOY 
MOV 


JSR 


JRHCS2, SBDDAT 
$GDDAT , SBDDAT 


693 © 
126 


¥STACK, SP 
#42, Je TSTNM 


PC, d#CLDISK 


sREAD RHCS2 FOR COMPARISON 
; COMPARE EXPECTED 
sDATA WITH DATA READ FROM 


SBRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
;IN_RHCSe TO INIT THE RH 

°A TEN WORD WRITE FROM AN 
sEVEN WORD BOUNDARY WAS DONE 


: THEN 
; RH 2 SHOULD HAVE IR 


‘TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


RESET STACK 
‘SAVE TEST NUMBER 


;GIVE RH INITIALIZE 
;SETUP UNIT NUBER 


_ = — << -- —— - 


J15 
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DERHAC. P11 TEST OBL (RHCS3 BIT #10) TE 
1554 :CLEAR RHWC AND FUNCTION BITS IN RHCS! 
iceds soees get uP FOR A TEN WORD “ea FROM AN ODD WORD BOUNDARY 
{9598 Bebeed BtS5RS Besa: NOY BODO. Re PENT THREE LORD BUFFER 
1508 9 722 052525 is MOV eS2525, (R2)+ MOVE THREE. Sesot PATO. BUFFER 
1BSt6 tec 605261 : NE ims : COUNT 
tet Ba0er4 Bt eee 903002 153262 aw ABFODD, JRHBA sPRENGH TE TREE tS Tent 
ost 930602 012777 177786 oma MOV #-10..QRHWC ;WORD soit en oe ee 

7 8- 
19215 610 904077 154024 RO, ICOMND TO DC COMMAND 
13512 rest 4iS4 uBtDaT sERITE PATA 
19217 
10218 
10219 “CHECK THAT RCS HAS O 
1220 030816 012737 sccoo00 001124 MOV #0, SGDDAT -GET GOOD = 9 
tase 030624 017737 153302 O01126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
10223 030632 6023727 601124 S0ii26 CMP S$GDDAT . SBDDAT cones EXPECT 
gees ; ATA WITH DATA READ FROM 
tBSse 020640 001491 BEG 6S$ iH H IF GOOD 
idee? 030642 104124 ERROR 124 ar 7 page 
ae: In BecSs Ta fur F THE RH 
10230 N WORD WRITE FROM GN 
123k ‘5 WORD BOUNDARY WAS DONE 
1B535 *RHCS3 SHOULD HAVE 0 
10234 ‘BUT CONTAINED WHAT IS 
10235 :GIVEN IN BAD RHCS3 
ine3? B30e44 042777 cODO7S 1s3e08 CLEAR FUNCTION BITS 
102 OAH CK raat’ Buc SACST tas RDY'DVA 
10239 030652 012727 oo4200 901124 MOV BRDY!D"9, $GDDAT ;GET GOOD = 4200 
19241 O30660 017737 152174 901126 MOV JRHCS1.$BDDAT ;READ RHCS1 FOR COMPARISON 
10e42 O30666 023727 GO1124 OOlie6 CMP $GDDAT.$8DDAT  ;COMFARE EXPECTED 
1CeN3 ;DATA WITH DATA READ FROM 
10245 O30874 o0140) BEG 67 :BRANCH IF GOOD 
10246 BS0E7e 194126 ERROR [e5 
ee hy ea 
ius 7 WRITE FROM AN 
ides 39 BOUNDARY WAS 
ites BSE, suo wave soviowe 
10254 :BUT CONTAINED WHAT IS 
10255 -GIVEN IN BAD RHCS1 
i025 020700 675: 
1025 -CHECK THAT RHCS2 HAS IR 
19258 030700 O12737 sSColoc of11eM rt eIR, $GODAT -GET GOOD = 100 
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Tue TEST (RHCS3 BIT #10) TEST 
iRee3 030706 0S3737 oOOSOIO 001124 81s UNIT, $GDDAT s INCLUDE UNIT NUMSER 
ieee SaEreS Garay EE GREE =| RRGERLERDRTSeteuee Reet grees 
ines 74 ;DATAW TH DATAT Reap FROM 
ie Gare TEA Rion 2 ae 
See : sAFTER SETTING “CLR” BIT #S 
10268 pl AP pe a. 
ier TEN FROM AN 
19271 : THEN 
Ge?¢ ‘RHCS2 SHOULD HAVE IR 
13554 fersee WITH UNIT NUMBER 
10275 :BUT CONT RAINED WHA T Is 
10276 :GIVEN IN BAD RH 
19277 030734 69S: 
l 28 “CHECK THAT RHWC HAS O 
030734 012737 oo0000O o01124 MOV #0, SGDDAT -GET GOOD = 
10281 020742 017737 153114 001126 MOV wC,.$ ARISON 
eee ie ih fe 
Hee 030750 923737 OO1124 OO1126 CMP SCOR SBDDA ARE LE ||, amp 
1928S 030756 09140! BEG 71$ ‘BRANCH IF GOOD 
10286 930760 i04%131 ERROR 131! 
1586 ON RHCSS TO INIT THE RH 
10589 pa BORD WRITE. FROM GN 
10290 Botnnaty WAS DONE 
19292 HWC SHOULD HAVE 0 
19293 ce CONTAINED WHAT IS 
10294 -GIVEN IN BAD RHWC 
10295 030762 71S: 
iB 
10298 
l SH HEEEEPESFE ALES ESELEHSHEREHF AE EAAEELERL EEA EARAERERRELEEPRILA LARS 
10306 T 43 TEST DBL (RHCS3 BIT #10) TEST D 
10302 : CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
10303 : a SET UP FOR A ELEVEN WORD ARI TE FROM AN EVEN WORD BOUNDARY 
10304 : i DO A ELEVEN WORD WRITE FROM AN EVEN WORD BOUNDAR 
10305 + i THIS SHOUL OD NOT SET RHCS3 IT #10 DBL 
10396 . CHECK 
10307 : i CHECK RHCST , RHCS2, RHBA, RHBAE, RHWC 
hehe os LEEEEEL EERE REESE SESE SE SER ER ERE EEE REESE EES EE REESE ES EELS REEEEE 
10310 030762 ocDD004 tST43: SCOPE 
10311 0307684 O1270& oo1000 MOV wSTACK. SP ‘RESET STACK 
izle 020770 912737 OO00043 oo4EsE MOY #43, a8 TSTNM :SAVE TEST NUMBER 
taste 030776 004737 JSR PC, J¥CLDISK :GIVE RH INITIALIZE 


MAINDEC~ eaten 


HAC.P11 


031002 
031006 


a 
BiB 
031022 
031030 


031036 
031042 


031044 
031052 
031060 


031066 
031070 


03107¢e 
03107e 


031100 
031106 
031114 


O3112e 
031124 


031126 


012701 
012702 


Ole7ee 
005301 
001374 
012777 
012777 
004077 
04154 
012737 
017737 
023737 


001401 
104124 


042777 
012737 
017737 
023737 


001401 
104125 
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TEST OBL (RHCS3 BIT #10) TEST D 


000003 
003000 


052525 


003006 


17776S 
153576 


O0CC000 


153054 
001124 


000076 
004200 


152746 
001124 


153034 
153024 


001124 


001126 
001126 


152760 
001124 


001126 
001126 


O9-SEP-76 97:55 PAGE 193 


1$: 


65S: 


673: 


MOV 


#3,R1 
SBPEVEN, R2 
sS2525, (R2)+ 


1$ 
#BFEVEN, JRHBA 


;SETUP UNIT NUBER 


sCLEAR RHWC AND FUNCTION BITS IN RHCS1 
is UP FOR A ELEVEN WORD WaT OF ta AN EVEN WORD SOUNDARY 


‘START THREE WORD BUFFER 
-FROM AN EVEN WORD BOUNDARY 


MOVE THREE S2S2S INTO BUFFER 


OU 

sBRANCH IF THREE NOT DONE 
-SET BUS ADDRESS TO START 
FROM AN M Nes WORD BOUNDARY 


MOV #-11..dRHWC ;WORD couNT ELEVE 


sCHECK THAT RHCS3 HAS 0 


MOV 


MOV 
CMP 


BEQ 
ERROR 


RO, JCOMND 


#0, SGDDAT 


JRHCS3, SBDDAT 
SGDDAT , SBDDAT 


65$ 
124 


#76, adRHCS1 


;GO TO 00. es 
;WRITE DATA 
;GET GOOD = 0 
sREAD RHCS3 FOR COMPARISON 


j COMPARE EXPECTED 
; DATA WITH DATA READ FROM 


: BRANCH IF GOOD 


;AF TER ete CLR" BIT #5 
> IN RHCS2 TO IN NIT THE RH 

-A ELEVEN WORD WRITE FROM AN 
SEN WORD BOUNDARY WAS DONE 


TH 

sRHCS3 SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 


;CLEAR FUNCTION BITS 


BIC 
“CHECK THAT RHCS1 HAS RDY!DVA 
#RDY!DVA,SGDDAT ;GET GOOD = 4200 


MOV 


MOV 
CMP 


BEG 
ERROR 


sCHECK THAT RHCS2 HAS IR 


JRHCS1, SBDDAT 
SGDDAT, SBDDAT 


67$ 
125 


*-READ RHCS1 FOR COMPARISON 

: COMPARE EXPECTED 

: DATA WITH DATA READ FROM 

*RHCS1 

: BRANCH IF GOOD 

+ TTIN LR” BIT #5 
N RUCES TO ENTS THE Ri 


ELEVEN WORD WRITE FROM AN 
‘EVEN WORD BOUNDARY WAS DONE 


:RHCS SHOULD HAVE RDY!DVA 


‘BUT CONTAINED WHAT IS | 
‘GIVEN IN BAD RHCS! 


-—-—. . -_ ~——_—.——— = ae « — = te elle li a i 


MAINDEC-11-DERHAC-A 


DERHAC.P11 


031162 
031162 


031210 
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;GET GOOD = 100 
: INCLUDE UNIT NUMBER 


sREAD RHCS2 FOR COMPARISON 
; COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


sRHCS2 
:BRANCH IF GOOD 


;AFTER SETTING “CLR” BIT #& 
s1N RHCSe TO INIT THE RH 
BBE VEN WORD WRITE FROM AN 
SEVEN RD BOUNDARY WAS DONE 
RHCSe SHOULD HAVE IR 
TOGETHER WITH th — 


:BUT CONTAINED W 
;GIVEN IN BAD RHCSe2 


;READ RHWC ote 
-DATA WITH DATA READ FROM 
eee IF GOOD 

; AFTER yt 1} Ts g #5 


I TH 
a: ELEVEN A WORD WR WRITE FROM AN 
“EVEN WORD BOUNDARY WAS DONE 


: THEN 
=RHWC SHOULD HAVE 0 


sBUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


cL BART FoR TEN Hg B arte "FOR AN Sy AR CBAC RAG #5) 


VEN WORD BOUNDARY 


T43 TEST DBL (RHCS3 BIT #10) TEST D 
127 37 000100 001124 MOV #IR, SGODAT 
00501 1124 BIS UNIT, $GDDAT 
017737 152722 001126 MOV JRHCS2, SBDDAT 
023737 001124 001126 CMP SGDDAT, SBDDAT 
001401 BEQ 69$ 
104126 ERROR 126 
695: 
“CHECK THAT RHWC HAS 0 
012737 oo00090 001124 MOV #0, SGDDAT -GET GOOD = 0 
017737 152666 001126 MOV JRHWC , SBDDAT 
023737 O0112e4% 901126 CMP $GDDAT,$BDDAT  ;COMPARE EXP 
001401 BE 71$ 
104131 ERROR 1331 
N RHCS 
71S: 
© LELEKSESSESR A SSFERSEREL SERA SSSR ASKER SSSR SAAR RAR AERA LL AARAAAALRES 
t LTEST 44 TEST DBL (RHCS3 BIT #10) TEST E 
: % 
- i EN = 
» % WITH BAI 
: DO A TEN HOR 5 MRI rE TRON an EVEN WORD BOUNDARY 
: THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
» % CHECK RHC 
: CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
© LEEKS REKRERERSSESSE SEERA AAR AS SAS SRAR RRA AAA RAARLASAAAA LALLA LLLER 
900004 téTu4: SCOPE 
012706 001000 MOV #STACK, SP :RESET STACK 
012737 oo0044 o04Ese MOV #44, J8TSTNM 


-SAVE TEST NUMBER 
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DERHAC. P11 THY4 TEST DBL (RHCS3 BIT #10) TESTE ) 

10427 , 
1 031224 094737 O40322 oo. a PC, JXCLDISK : GIVE RH INITIALIZE 
Biss a ‘SETUP UNIT NUBER 
10430 2, -CLEAR RHWC AND FUNCTION BITS IN RHCS1 
1043 & -SET UP FOR A TEN WORD WRITE FROM aN EVEN WORD BOUNDARY 
10433 0231230 012701 000003 .- MOV R s COUNT OF THREE 
10434 031234 012702 003000 MOY SBFEVEN, R2 THREE E WORD BUFFER si 

436 031240 012722 OoS25es 1$: . MOV #52525, (R2)+ i A ‘apy pause APS BEE rER 
1ONaa Oat oue 501374 mo | H IF THREE NOT 
ates: Ba iSe8 Bt 4303 N03000 152606 MOV SBFEVEN, JRHBA e ic ADDRESS N8 PONE 
10440 M AN EVEN WORD BOUNDARY 
10441 031256 012777 177766 152576 #-10. ,ORHWC ; WORD count. TEN 
10442 031264 052777 300010 152578 BIS #BAl MORHeSS -SET BAI IN RHCS2 
10443 031272 004077 ‘53342 “JSR 40 0 a COMND ;GO TO DO COMMAND 
19444 931276 OO41S4 ¢ — WRIDAT ‘WRITE DATA 
1044S . 
10446 . 
10447 -CHECK THAT RHCS3 HAS O 
10448 031300 012737 oo0000 001124 MOV #0, SGDDAT -GET GOOD = 0 
104S0 031306 017737 152620 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR OMPARISON 
10451 031314 623737 001124 001126 CMP SGDDAT;SBDDAT  :COMPARE PxPE Eb 
10452 =DATA WITH BTA READ FROM 
10453 | : RHCS3 
10454 031322 001401 BEQ S$ ‘BRANCH IF GOOD 
1045S 0313204 104124 ERROR 124 . 
10456 sAFTER SETTING “CLR” BIT #5 
10457 ; IN RHCS2 TO ant THE RH 
1 458 | TEN WORD Pi 
104 E EVEN WORD BOUND Ry me AONE 
10460 MIT H BAI IN RHCS2 SET 
10462 THEN, SHOULD HAVE 0 
1046 “BUT CONTAINED WHAT IS 
10464 ‘ ‘GIVEN IN BAD RHCS3 
10465 031326 65S: 
10466 031326 042777 oOD00076 152524 BIC 876, JRHCS1 CLEAR FUNCTION BITS 
1046 “CHECK THAT RHCS1 HAS RDY!DV | 
10468 031334 012737 oO4200 001124 MOV BRDY!DVA, SGDDAT “GET "5000 = 4200 aps 
10470 03134 7737 152512 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
1Bdo4 Bat Zé 85559 : 1124 601126 CMP $GDDAT’SBDDAT COMPARE EXPECTED 
1097¢ : ;DATA WITH DATA READ FROM 
it 021356 00140! BEQ 675 BUCS IF GOOD 
10475 031260 ig41e5 : ERROR 125 
10476 AFTER SETTING "CLR" BIT #5 
10477 iIN RuCSe. TO ttt THE RH 
10478 TEN WORD E FROM AN 
10479 sEVEN WORD BOUNDARY WAS DONE 
10480 , WITH BAI IN RHCS2 SET 


10482 es SHOULD HAVE RDY!DVA 


o--< <== -< - ~s-+< -~_— - - 


~ — | —— er ee re ee ee et = oe ee we ate 


MAINDEC-11-DERHAC-A 
DERHAC.P 12 TH4 


we 


C31416 
031416 
031424 
031432 


031440 
03144e 


021444 


012737 
053737 


012737 
017737 
023737 


G01401 
104131 
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TEST DBL (RHCS3 BIT #10) TEST E 


B1lb 


;=4200 
;BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS1 


573: 
“CHECK THAT RHCS2 HAS IR!BAI 
000110 001124 MOV #IR'BAI,SGDDAT ;GET GOOD = 110 
905010 oO11°4 BIS UNIT, SGODAT INCLUDE UNIT NUMBER 
152466 001126 MOV DRHCS2,$BDDAT ;READ RHCS2 FOR COMPARISON 
001124 091126 CMP $GDDAT,$BDDAT  :COMPARE EXPECTED 
1 Ta WITH DATA READ FROM 
BEQ 693 ‘BRANCH IF GOOD 
ERROR 126 
“AFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
-€ TEN WORD WRITE FROM AN 
; EVEN WORD BOUNDARY WAS DONE 
:WITH BAI IN RHCS2 SET 
mia SHOULD HAVE IR!BAI 
: TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
aes -GIVEN IN BAD RHCS2 
“CHECK THAT RHWC HAS O 
099000 001124 MOV #0, SGDDAT -GET GOOD = 0 
152432 001126 MOV IRHWC,SBDDAT = ;READ RHWC FOR COMPARISON 
N61124 o0!1e6 CMP $GDDAT,SBDDAT ;COMPARE EXPECTED 
;DAT Q@ WITH DATA READ FROM 
BEO 71$ ‘BRANCH IF GOOD 
ERROR 131 
sAFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
EN WORD WRITE FROM AN 
-EVEN WORD BOUNDARY WAS DONE 
sITH BAI IN RHCS2 SET 
*RHWC SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHWC 
71$: 
: PUTTTTTTUTTTTTTTSTTTCSTOTTOTETETTTTTTTTCTTTETTTTETTT TTT TTT T Te TS. 
kT TEST 45 TEST DBL (RHCS3 BIT #10) TEST F 
 % CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
ti SET UP FOR A ELEVEN WORD WRITE FROM AN ODD WORD BOUNDARY 
. i D0 A ELEVEN WORD WRI7E FROM AN ODD WORD BOUNDARY 
i THIS SHOULD SET RHCS3 BIT #10 DBL 
# CHECK RHCS3 


0 


EYP 


}] ORS 
il T4HS 


031444 
031446 
0314S2 


031460 


031464 
031470 


031512 
031520 
031524 


031526 


031534 
031542 


031554 
031554 


031562 
031570 
031576 


031604 
031506 


900004 
012706 
012737 


004737 


012701 
Q1270e 


Ole72e 


012777 
004077 
004154 
012737 
017737 
023737 


001401 
104i24 


042777 
012737 


017737 
023737 


MACY11 27(732) 


001000 
000045 


040322 


000003 
003092 


0S2Se5 


003002 


1777658 
153114 


002000 


152372 
001124 


000076 
004200 


152264 
001124 


OO4656 


152352 
1S2e34e 


001124 


001126 
001126 


152276 
901124 


001126 
OC1126 


C16 
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TEST OBL (RHCS3 BIT #10) TEST F 


4 


téTus 


1$: 


6s$: 


CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


ee GRR ee eee 
C 


MOV wSTACK, SP :RESET STACK 

MOV #45, JaTSTNY “SAVE TEST NUMBER 

JSR PC, JSCLDISK «GIVE RH INITIALIZE ‘ 
-SETUP UNIT NUBER : 
-CLEAR RHWC AND FUNCTION BITS IN RHCS! 

;SET UP FOR A ELEVEN WORD WRITE FROM AN ODD WORD BOUNDARY 

MOV #3,R1 “COUNT OF THREE 

MOV s8F 000, Re “START THREE WORD BUFFER 
-FROM AN GDD WORD BOUNDARY 

NOY sS2525, (R2)+ nove THREE S2S2S INTO BUFFER 

BNE 1$ ‘BRANCH IF THREE NOT DONE 

MOV WBFODD,SRHBA § :SET BUS ADDRESS TO START 


ROM aN 00D WORD BOUNDARY 
OV #-11.,9RHWC : WORD couNT ELEV 


RO. JCOMNE 360 TO DO COMMAND 
WRIDAT WRITE DATA 
‘CHECK THAT RHCS3 HAS DBL 
MOV #DBL , SGDDAT -GET GOOD = 2000 
MOV JRHCS3,$B80DAT  ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT.$8DDAT :COMPARE EXPECTED 
:DATA WITH DATA READ FROM 
| *RHCS3 
BEQ bS$ :BRANCH IF GOOD 
FRROR 124 
-AFTER SETTING “CLR” BIT 8S 
; IN RHCS2 TO INIT THE R 


H 
sA ELEVEN WORD WRITE FROM AN 
; ODD WORD BOUNDARY WAS DONE 


;RHCS3 SHOULD HAVE DBL 


‘BUT CONTAINED WHAT IS 
GIVEN IN BAD RHCS3 


BIC 876, JRHCS1 “CLEAR FUNCTION BITS 
“CHECK THAT RHCS1 HAS RDY!DVA 
MOV #RDY'!DVA,SGDDAT ;GET GOOD = 4200 


MOV @RHCS1,$BDDAT  ;READ RHCS1 Bs COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXP 

DR i aah BATA READ FROM 
BEQ 673 -BRANCH IF GOOD 
ERROR 125 


sAFTER SETTING “CLR” BIT #5 
sIN RHCS2 TO INIT THE RH 


D16 


MHINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 97:55 PAGE .198 
OERHHL.P11 THs TEST OBL (RHCS3 BIT #10) TEST F 


10595 -A ELEVEN WORD WRITE FROM AN 
10536 ; ODD WORD BOUNDARY WAS DONE 
10538 ;RHCSL SHOULD HAVE RDY!DVA 
10600 ‘BUT CONTAINED WHAT IS 

1060 -GIVEN IN BAD RHCS1 

10602 031610 673: 

10603 “CHECK THAT RHCS2 HAS IR 

10604 031610 012737 900100 001124 MOV #IR, $GDDAT -GET GOOD = 1C0 

10608 031616 053737 OOSOIG 001124 BIS UNIT. $GDDAT ‘INCLUDE UNIT NUMBER 

10607 031624 017737 152240 001126 MOV IRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON — 
10608 031632 023737 001124 001126 CMP $GDDAT,$BDDAT ;COMPARE EXPECTED z 
19809 cs -DATA WITH DATA READ FROM Ne 
10610 : RHCS2 aot 
10611 O31840 001401 BEQ 69 :BRANCH IF GOOD oie 
10612 O31642 104126 ERROR le6 al x 
1061 : “AFTER SETTING "CLR" BIT #5 
10614 -IN RHCS2 TO INIT THE RH 

10615 -A ELEVEN WORD WRITE FROM AN 
10616 ; 00D WORD BOUNDARY WAS DONE 
10617 HEN 

10618 RACS2 SHOULD HAVE IR 

10620 : TOGETHER WITH UNIT NUMBER 
1962 ‘BUT CONTAINED WHAT IS 

10622 -GIVEN IN BAD RHCS2 

10623 O31644 69S: 

10624 “CHECK THAT RHWC HAS 0 

10628 031644 912737 o0g000 901124 AOV #0, SGDDAT -GET GOOD = 0 

10627 031652 017727 152204 001126 MOV. JRHWC.SBDDAT § ;READ RHWC FOR COMPARISON 
10628 031660 535559 001124 O0i126 CMP $GDDAT,SBDDAT ;COMPARE EXPECTED 

10629 “DATA WITH DATA READ FROM 
10630 : RHWC 

10631 O31665 001401 BEQ 71 ‘BRANCH IF GOOD 

10632 031670 i94131 ERROR 131 

10633 sAFTER SETTING "LR" BIT #5 
10624 *IN RHCS2 TO INIT THE RH 
10635 -A ELEVEN WORD WRITE FROM AN 
Bes? 3900 WORD BOUNDARY WAS DONE 
10628 *RHWC SHOULD HAVE 0 

10639 “BUT CONTAINED WHAT IS 

10640 ‘GIVEN IN BAD RHWC 

1064i 621672 713: 

10642 

10643 

10644 

1OE4S 

1064 + LLLLE KEELER E ERA KEE EEK E ERR AL ALES EERE EE LARA SELAH HS RSLARALEARERA 
{Bea kT TEST 4E TEST OBL (RHCS3 SIT #10) TEST G 

10649 & CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 


1065S : x SET UP FOR A NINE WORD READ FROM AN EVEN WORD BOUNDARY 


he ptt on tae MACY11 27(732) Q9-SEP-76_ 97:55 PAGE 199 


HAC. P11 THE TEST OBL (RHCS3 BIT #10) TEST G 
10651 :# DO A NINE WORD READ FROM AN EVEN WORD BOUNDARY 
10652 : i THIS SHOULD NOT SET RHCS3 BIT #10 DBL 
ids a CHECK RH C83 
10658 : CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
106SE  SFLAASSELLHAARAZASDE RA LEAAAA RARE LRERELALELELALARELALELKRSLLALLE LEEKS 
19657 93167¢ 90004 +éTug: SCOPE 
10658 031674 912706 001000 iy HSTACK, SP “RESET STACK 
10659 031700 012737 Ooco4s oco4ese MOV #46, J8TSTNM ‘SAVE TEST NUMBER : 
10661 031708 004737 oO40322 JSR PC, J#CLDISK ;GIVE RH INITIALIZE 
10662 :SETUP UNIT NUBER 
10663 *CLEAR RHWC AND FUNCTIGH-BITS IN RHCS1 
19665 -SET UP FOR-A NINE WORD READ FROM AN EVEN WORD BOUNDARY 
10666 031712 012701 900003 MOV #3,R1 :COUNT OF THREE 
10667 031716 012702 603000 MOV SFEVEN, R2 -START THREE WORD BUFFER 
106 -FROM AN EVEN WORD BOUNDARY 
10669 031722 012722 os2525 1$: MOV #52525, (Ra)+ ; MOV E THREE S2S2eS INTO BUFFER 
10670 031726 0605301 DEC RI NT 
10671 031730 001374 BNE 1$ : BRAN CH IF THREE NOT DONE 
10678 031732 012777 oo3000 152124 MOV #BFEVEN,JRHBA :SET BUS ADDRESS TO START 
10 jEROM M AN EVEN WORD BOUNDARY 
10674 031740 012777 177767 152114 MOV #-9..QRHWC :WORD COUNT NINE 
10675 O31746 O04077 152666 JSR _—-RO, aCOMND "G0. TO DO COMMAND 
10676 031752 OO4160 READAT *READ DATA 
10677 
10678 
19679 -CHECK THAT RHCS3 HAS O 
1680 031753 012737 oo00000 001124 MOV #0, SGDDAT :GET GOOD = 0 
10682 031782 917737 152144 001126 MOV JRHCS3,$B8DDAT  ;READ RHCS3 | FOR COMPARISON 
10683 031770 923737 OD1124 O01126 CMP SGDDAT;$BDDAT  :COMPARE EXP 
10684 :DATA WITH DTA READ FROM 
10685 | *RHCS 
10686 C31776 of14o) BE 6S$ *BRANCH IF GOOD 
10687 032000 104124 ERROR 124 
10688 :AFTER SETTING TLR" BIT 8S 
10689 -IN RHCS2 TO INIT THE RH 
10690 =A NINE WORD READ FROM AN 
10691 ‘EVEN WORD BOUNDARY WAS DONE 
1°.59¢ : THEN 
10693 *RHCS3 SHOULD HAVE 0 
10694 | :BUT CONTAINED WHAT IS 
10695 :GIVEN IN BAD RHCS3 
10696 932002 S$: 
19697 G3e002 o42777 oO00076 152050 BIC 876. IRHCS! ; SLEAR FUNCTION BITS 
10698 “CHECK THAT RHCS1 HAS RDY!D 
10699 032010 012737 oo4200 001124 MOV BRODY! DVA, SGDDAT "GET *G000 = 4200 
10701 O32016 017737 152036 001126 MOV DRHCS1,$80DAT ;READ RHCS1 FOR COMPARISON 
10702 032024 023737 OO1124 OOlls6 . CMP $GDDAT;$BDDAT :COMPARE EXPECTED 
10705 : sDATA WITH DATA READ FROM 
19795 022022 cO!40i ee BEG 67 ‘BRANCH IF GOOD 


10706 o32034 104126 ERROR 125 


MBINDEC-11-DERHAC-A 
DERHAC P11 T46 


032036 


032036 
032044 


0320Se2 
032060 


032066 
032070 


032072 
032e07e 


032120 


012737 
053737 


017737 
023737 


001401 
104126 


012737 


017737 
023737 


MACY11 27(732) 
(RHCS3 BIT #10) TEST G 


TEST OBL 


000100 
005010 


152012 
001124 


001124 
001124 


091126 
001126 


000000 9001124 


151756 001126 
O011e4% O01126 


F16 
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;AFTER SETTING “CLR” BIT #5 
; IN R 


AD FROM A 
EV EN WORD BOUNDARY WAS DONE 
;RACS SHOULD HAVE RDY!DVA 


‘BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS1 


67$: 
“CHECK THAT RHCS2 HAS IR 
MOV #IR, SGDDAT -GET GOOD = 100 
BIS UNIT. SGDDAT ‘INCLUDE UNIT NUMBER 
MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
CMP SGDDAT,$BDDAT :COMPARE EXPECTED 
:DR 1 WITH DATA READ FROM 
BEQ 69$ -BRANCH IF GOOD 
ERROR 126 
-AFTER SETTING “CLR” BIT #5 
sIN RHCS2 TO INIT THE RH 
A NINE WORD READ FROM AN 
EVEN WORD BOUNDARY WAS DONE 
RAC SHOULD HAVE IR 
: TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
ee ‘GIVEN IN BAD RHcee 
“CHECK THAT RHWC HAS 0 
MOV #0, SGDDAT :GET GOOD = 0 
MOY JRHWC.SBDDAT § ;:READ RHWC FOR COMPARISON 
CMP $GDDAT , SBDDAT ; COMPARE EXPECTED 
; DATA WITH DATA READ FROM 
BEG 71$ t BRANCH IF GOOD 
ERROR 131 
-AFTER SETTING “CLR” BIT #5 
:1 RHCS2 TO INIT THE RH 
-A NINE WORD READ FROM AN 
EVER WORD BOUNDARY WAS DONE 
*RHW SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHWC 
713: 
: ircr uy TEST Da (PCR BIT B10) TEST HS 
-&TE TEST DBL (RHCS3 BIT #10) TEST H 


. x CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR {RHCS2 BIT #5) 
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CERHHL.P11 T4? TEST OBL (RHCS3 BIT #10) TEST H 


10763 . % SET UP FOR © TEN WORD READ FROM AN EVEN WORD BOUNDARY 
10764 + DO A TEN WORD READ FROM AN EVEN WORD BOUNDARY 

LO765 . THIS SHOULD SET RHCS3 BIT #10 DBL 

10766 : i CHECK R 

ta : i CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

10759 - LEAKE ASARA ARSE EASA LE A SRE LALA RELL EA ERLE ELSES EEL AELEL ERS 
es SEE seat 100 tSry7: ay #STACK, SP sRESET STACK 

~ f 

Rae BaStSE Bt5So5 BBaB 004656 MOV #47, a8 TSTNM -SAVE TEST NUMBER 

10774 032134 004737 940322 JSR PC, JHCLDISK -GIVE RH INITIALIZE 

19775 ge UP UNIT NUBER 

10°76 LEAR RHWC AND FUNCTION BITS IN RHCS! 
19778: -SET UP FOR A TEN WORD READ FROM AN EVEN WORD BOUNDARY 
10779 032140 012701 090003 MOV #3,R1 “COUNT OF THREE 

10780 O32144 Ole702 oco3000 MOV HBFEVEN, Re ‘START THREE WORD BUFFER 
10781 -FROM AN EVEN WORD BOUNDARY 
10782 032150 012722 oOSe525 1S: MOV #52525, (R2)+ sMOVE THREE S2S2S INTO BUFFER 
10783 032154 005301 DEC RI : COUN 

HG BIS HELP? moon sure © revo amen PL SORE IO 0 
OSB ROM AN EVEN WORD BOUNDARY 
10787 O32166 012777 177766 151665 MOV #-10.,dRHWC -: WORD COUNT TEN 

10788 032174 OO4077 152440 JSR RO, JCOMND ;GO TO 00 COMMAND 

19789 032200 OO4!60 READAT *READ DAT 

10730 

10791 

19792 “CHECK THAT RHCS3 HAS DBL 
10733 032202 012737 o02000 001124 MOV #OBL , SGDDAT -GET GOOD = 2000 
1079S 032210 017737 151716 001126 MOV JRHCS3,S$BDDAT  ;READ RHCS3 FOR COMPARISON 
10796 032216 023727 O01124 SOile¢ CMP SGDDAT.$BDDAT :COMPARE EXPECTED 

10797 ‘DATA WITH DATA READ FROM 
10798 -RHCS3 
10799 032224 oOo1401 BEQ E5% ‘BRANCH IF GOOD 
10800 032226 104124 ERROR 124 
10801 -AFTER SETTING “CLR” BIT #5 
10802 -IN RHCS2 TO INIT THE RH 
10803 -A TEN WORD READ FROM AN 
10804 ; EVEN WORD BOUNDARY WAS DONE 
10805 - THEN 

10806 ; RHCS3 SHOULD HAVE DBL 

10867 -=2000 

10808 -BUT CONTAINED WHAT IS 

102809 , :GIVEN IN BAD RHCS3 

10810 022220 bS$: 

10811 032230 o4e777 000076 151622 BIC #76, IRHCS1 “CLEAR FUNCTION BITS 

10812 “CHECK THAT RHCS1 HAS RDY!DVA 

10813 032236 012737 oo4200 9O01124 MOV BROY!DVA,SGDDAT ;GET GOOD = 4200 

10815 032244 017737 1S1610 001126 MOV DRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
10816 032252 923737 901124 O01126 CMP SGDDAT.$BDDAT ;COMPARE EXPECTED 

10817 ;DATA WITH DATA READ FROM 
404 : 


MR INDEC-11-DERHAC-# 
DERHHC.P11 TY? 


032260 
C3e262 


032264 


O35572 


032300 
032306 


032314 
032316 


032320 
032320 
032326 
032334 


032342 
032344 


O3234e 


001401 
104225 


* 
. 


065737 
017737 
023737 


001401 
104126 


012737 
017737 
023737 


001401 
L34i31 
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TEST OBL (RHCS3 GIT #10) TEST H 


BEQ 67$ 
ERROR 125 
673: 
- CHECK THAT RHCS2 HAS IR 
999195 991124 MOV T 
90501 01124 BIS UNIT. $GDDAT 
151564 001126 MOV JRHCS2, SBDDAT 
06:124 OO1126 CMP $GDDAT . $BDDAT 
BEG 695 
ERROR 126 
695: 

“CHECK THAT RHWC HAS O 
cooo09 o01124 hoy #0, SGDDAT 
151530 901126 MOV JRHWC , SBDDAT 
001124 OO01126 CMP $GDDAT. S$BDDAT 

BEO 71 

ERROR 131 

71$: 


;BRANCH IF GOOD 


sAr TER SETTING “CLR” a aS 
-IN RHCS2 TO INIT THE R 

:8 TEN WORD READ FROM aN 
EVEN WORD BOUNDARY WAS DONE 
RHC SHOULD HAVE RDY!DVA 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS! 

;GET GOOD = 100 

: INCLUDE UNIT NUMBER 

; READ ORE ae COMPARISON 
;COMPARE EXPECTED 

sDATA WITH DATA READ FROM 

i BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT aS 
; IN C 


E 
: EVEN WORD BOUNDARY WAS DONE 
: RHCS2 SHOULD HAVE IR 
TOGETHER WITH UNIT NUMBER 


-BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHCS2 


;GET GOOD = 0 


sREAD RHWC FOR COMPARISON 
: COMPARE EXPECTED 
-DATA WITH DATA READ FROM 


s RHWC 
;BRANCH IF GOOD 


;AFTER SETTING a 5 


N OD FROM AN 
EVEN WORD BOUNDARY WAS DONE 


: THEN 

‘Ric SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHWC 


- LLLLAALLLALA LALA LALA ALAALAAAF AA LA ARAL AAATALALALAAALARAAARARELLLAE 


-&TEST SO 


TEST DBL (RHCS3 BIT #10) TEST I 


MRINDEC-11-DERHAC-A 
DERHAC.P11 TSO 


032346 
032350 
032354 


032362 


032366 
032372 


032376 


032406 
032414 


O3e4ee 
032426 


032430 
032436 


032444 


0324Se 
032454 


032455 
032456 


032464 


032472 
032500 


000004 
012706 
012737 


004737 


012701 
O1e70e 


012722 


004160 


012737 
017737 
023737 


001401 
104124 


042777 


012737 


917737 
023737 
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001000 
000050 


040322 


000003 
003002 


0S2eS25 


003002 


177766 
1S2e2le 


000000 


151470 
001124 


000076 
004200 


151362 
CO1124 


004656 


151459 
151440 


001124 


O0011e6 
001126 


151374 
001124 


001126 
001126 
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TEST DBL (RHCS3 BIT #10) TEST I 


s LEAL AALALALALELEAARELALE AA LAA ALAA AERAAAA LALA LALA LARA RELL LALE REEL 


tétso: 


1$: 


653: 


een Oe yg ee CONTROLLER CLEAR (RHCS2 BIT #5) 


EAD FROM AN ODD WORD BOUNDARY 
RD BOUNDARY 


THIS SHOULD NOT SET RHCS3 BIT #10 DBL 


CHECK RHCS3 


CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


SCOPE 

MOV HSTACK, SP 
MOV #50, a#TSTNM 
JSR PC, J8CLDISK 


OV 
MOV 


MOV 
DEC 


#3,R1 
#BF ODD, Re 
#52525, (R2)+ 
RI 


BNE 1$ 
MOV #BF ODD, JRHBA 


OM 
yi #-10. dJRHWC ;WORD count TEN 


RO, JCOMND 
READAT 


“CHECK THAT RHCS3 HAS O 
MOV #0, SGDDAT 


MOV JRHCS3, SBDDAT 
CMP $GDDAT , SBDDAT 
BEQ 65$ 
ERROR 124 


BIC #76,dRHCS1 


; CHECK THAT. RHCS1 HAS R 
MOV BRODY! DVA, SGDDAT 
MOV JRHCS1, SBDDAT 
CMP $GDDAT , $BDDAT 


sRESET STACK 
-SAVE TEST NUMBER 


sGIVE RH INITIALIZE - 
-SETUP UNIT NUBER 


B 
‘CLEAR RHWC AND FUNCTION BITS IN RHCS1 
;SET UP FOR A TEN WORD READ a Ree oF WORD BOUNDARY 


UN 
: START THREE WORD BUFFER 

OM AN ODD WORD BOUNDARY 
oe THREE SeSeS INTO BUFFER 
sBRANCH_ IF THREE NOT DONE 
iS BUS ADDRESS TO START 

ROM AN ODD WORD BOUNDARY 


;GO TO DQ COMMAND 
;READ DATA 


;GET GOOD = 0 


sREAD RHCS3 FOR COMPARISON 
; COMPARE EXPECTED 
sDATA WITH DATA READ FROM 


: RHCS 
t BRANCH IF GOOD 


;AFTER SETTING ft BIT #5 
;IN RHCS¢ TO INIT THE RH 
A TEN WORD READ FROM AN 
3900 WORD BOUNDARY WAS DONE 


*RHCS3 SHOULD HAVE 0 
:BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 

; CLEAR FUNCTION BITS 
"GET GOOD = 4200 


;READ RHCS1 FOR COMPARISON 
: COMPARE EXPEC 


TED 
‘DATA WITH DATA READ FROM 


MRINDEC-11-DERHAC-A MACY11 27(732) OQO9-SEP-76 97:55 PAGE 204 


DERHAC.P11 TSO TEST OBL (RHCS3 BIT #10) TEST I 
10931 »RHCS1 
es EEE LM fide {2 se 
indag ee “AFTER SETTING “CLR” BT “5 
13935 ‘IN RHCS2 TO INIT THE 


iB835 Sod TL BRR ne 


'RHCSL SHOULD HAVE RDY!OVA 


y 
1Bé4t 1BUT CONTAINED WHAT IS 
10942 ‘-GIVEN IN BAD RHCS1 
10943 032512 67$: 


1C944 sCHECK THAT RHCS2e HAS IR 
T GOOD = 100 


tRSie REEL STS? BOATS GREY «= ARYSSSRDR, PRLLGBOALH Ramee 
esd ARESGh GLE EDR LIS! CRERR ERENT ERLE gorrmssm 


l DATA WITH DATA READ FROM 


: RHCS2 
1096 42 90149 69 :BRANCH IF GOOD 
ipees Baseq5 783 FEfon fae pie: 

q sAFTER SETTING “CLR B17 #S 
10955 :IN N RHCS2 TO INIT THE R 
19356 @ TEN WORD READ FROM AN 
10357 ODD WORD BOUNDARY WAS DONE 
10953 RACE SHOULD HAVE IR 
ipaey THER WITH UNIT NUMBER 
10962 Tt CONTAINED WHAT IS 
10963 *GIVEN IN BAD RHCS2 
10964 o3es4é 69S: 
10965 “CHECK THAT RHWC HAS O 
10966 032546 012737 o00090 901124 MOV #0, SGDDAT -GET GOOD = 0 
1 32564 917737 1513 1! MOV RHC. $BD ;READ RHWC FOR COMPARISON 
tRéeg Fs 55959 Astiog Sorts Mee RR Eb bpar i COMPARE. XPECTED 
10970 :DATA +o DATA READ FROM 
10376 032570 9001401 BEO 71 BRANCH IF GOCD 
10973 022572 105131 ERROR 131 
10974 -AFTER SETTING "CLR" BIT #S 
10975 -IN RHCSe TO INIT THE RH 
10376 =A TEN WORD READ FROM A 
10977 $900 WORD BOUNDARY WAS DONE 
1037 Ric 0D HAVE 
ipsen . SBT CBNTAINED WHAT IS 
10961 :GIVEN IN BAD RHWC 
10982 232574 7\$: 
10983 
15984 
1998s 


19986 . s LERERERERELELER ERD EGE EEA REE RAE RERARERER ELLER EESERAREREARALAAL EI 


MaINDEC-11-DERHAC-A 
Spank Pit ¥5! 


19987 


_ 


ena ae 





SOBs ae 


NOOoOXAIOoOOOO0O00O 
TUTU b-+ bb & +--+ be be bh 
—-OWODNOul site 


NUE 


b—- b= & = b = = 0-— b= b-= b= b= + - b= bb Ob 2 = 2 0 8 0 — 2 2 2 8 8 0 0 <2 + O- 2 0 
(ICU GUTUTU 
O.00@ 


o-+0 -0 -b-—- &- b> > 6 — §-- 6— b-+ b= 6 -- bb = 8 2 bs 8 2 0 0 2 8 bo = = 8-0 be * b= bo em 2-2 


YNNddaIO0O0O000O0 
+ wet tt tet tr pt 
mM —-OWO NM FW) 


032704 
032704 


032712 


032720 
032726 


1 
012737 
004737 


C12737 
017737 
023737 


001401 
104124 


042777 
012737 


017737 
023737 


rest 


001000 
000051 


04° 322 


000003 
003000 
0S25e5 


003000 


17776S 
151764 


000000 


1Sle4e 
001124 


000076 
004200 


151134 
OCile4 


e7( 
SL ik 


OO46SE 


1Sleze 
Siele 


001124 


001126 
001126 


151146 
001124 


001126 
001126 


piesa Bir si) Test TO 


;#TEST S1 TEST OBL (RHCS3 BIT #10) TEST J 


az seY'tp "Poa ELEVEN FORD atmo PRON al EVEN LORS BNDARY 
i. wae N NOT SET RHCSS BIT 810 DBL 
:# CK RHCS1,RHCS2, RHBA, RHBAE , RHWC 

7 pepsi oe ype ergo RHRRARKAAAAAAAELE FREE 


+4751; 
eSTACK, SP *RESET STACK 
MOV #51, a8TSTNM -SAVE TEST NUMBER 
JSR PC, J#CLDISK GIVE RH IN NITIALIZE 
SEAR Bie AN ANB EB INCTION BITS IN RHCS1 
get uP FOR A ELEVEN WORD READ FR FROM AN EVEN WORD BOUNDARY 
THREE 
MOV SaPEVEN, R2 START PHREE WORD BUFFER 
fa ove Mined WORD BOUNDAR 
18: MOV aS2525, (R2)+ E S2525 INTO BUFFER 
BNE 1$ IF THREE NOT DONE 
MOV ¥BFEVEN, JRHBA ei ‘Bus TF DORES TO START 
FROM AN EVEN WORD BOUNDARY 
MOV #-11.,QRHWC ;WORD eal ELEVEN 
JSR RO, ICOMND :GO TO DO COMMAND 
READAT ‘READ DATA 
“CHECK THAT RHCS3 HAS O 
HOV #0, SGDDAT :GET GOOD = 0 
MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
CMP $GDDAT.S$BDDAT :COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
*RHCS3 
BEQ 65$ ‘BRANCH IF GOOD 
ERROR 124 
sAFTER SETTING "CLR BIT #5 
*IN RHCSe TO INIT THE RH 
8 ELEVEN WORD READ FROM AN 
VEN WORD BOUNDARY WAS DONE 
eae SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘a :GIVEN IN BAD RHCS3 


Bic #76, JRHCS1 “CLEAR FUNCTION BITS 
“CHECK THAT RHCS1 HAS RDY!DVA 
MOV wRDY'DVA,SGDDAT ;GET GOOD = 4200 


MOV M@RHCS1,$BDDAT ;READ RHCS1 FOR COMPARISON 
uP SGDDAT , $BDDAT sCOMPARE EXPECTED 


- me Ee eee oe - 


MRINDEC-11-DERHAC-A 
DERHA 


C.Pll 
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TEST OBL (RHCS3 BIT #10) TEST J 


tii ‘DATA WITH DATA READ FROM 
1104S 0327324 00140! BEQ 67$ :BRANCH IF GOOD 

11046 932736 104125 ERROR 125 

1i047 s AFTER SETTING “CLR” BIT #5 

11048 N RHCS2 TO INIT THE RH 

11049 A ELEVEN WORD READ FROM AN 

11950 ‘EVEN WORD BOUNDARY WAS DONE 

11051 : THEN 

11052 ; RHCS1 SHOULD HAVE RDY!DVA 

11054 BUT CONTAINED WHAT IS : 
11055 -GIVEN IN BAD RHCS1 | 
11056 032740 676: | 
11057 “CHECK THAT RHCS2 HAS IR : 
11058 032740 012737 oO00100 901124 MOV #IR, SGDDAT -GET GOOD = 100 

11053 032746 053737 OOSO1O0 o01124 BIS UNIT. $GDDAT ‘INCLUDE UNIT NUMBER | 
11061 032754 017737 151110 001126 MOV DRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON | : 
11062 032762 023737 001124 001126 CMP SGODAT,$BDDAT :COMPARE EXPECTED : 
11063 :DATA WITH DATA READ FROM | 
11064 : RHCS2 

11065 032770 001401 BEQ 69$ :BRANCH IF GOOD 

11066 032772 104126 ERROR 126 

11067 sAFTER SETTING *oLR” BIT #5 

11068 -IN RHCSe TO INIT THE RH 

11069 . -A ELEVEN WORD READ FROM AN 

11070 iVEN WORD BOUNDARY WAS DONE 

1107¢ ; RHCS2 SHOULD HAVE IR 

11074 : TOGETHER WITH UNIT NUMBER 

11075 ‘BUT CONTAINED WHAT IS 

11076 -GIVEN IN BAD RHCS2 

11077 032774 69S: 

11078 “CHECK THAT RHWC HAS O 

11073 032774 012737 oo0g00 901124 MOV #0, SGDDAT :GET GOOD = 0 

11081 033002 017737 1S1054 001126 MOV DRHWC,SBDDAT §; READ RHWC FOR {COMPARISON ' 

11082 033010 023737 001124 OOlle6 CMP SGDDAT,SBDDAT  ;COMPARE EXP 

11083 ;DA ATR WITH DATA READ FROM 

11085 033016 001491 BEQ 71$ BRANCH IF GOOD 

11086 033020 104131 ERROR 131 | 
11087 :AFTER SETTING "CLR" BIT #5 ) 
11088 ; IN N RHCS2 TO INIT THE RH e 
11089 -A ELEVEN WORD READ FROM AN 

11030 THEN WORD BOUNDARY WAS DONE 

1109 | *RHWC SHOULD HAVE 0 

1109 ‘BUT CONTAINED WHAT IS 

11094 ‘GIVEN IN BAD RHWC 

11095 032022 713: 

11996 

11997 

11096 


M16 


CLEAR RHIC AND FUNCTION BITS IN RHCSi 
-SET UP FOR A ELEVEN WORD READ A WORD BOUNDARY 


MAINDEC=11-DERRAC=A Macy 4 27(73 9=SEP-76 07:55 PAGE 207 
DERHAC.P11 ce TEST OBL (R T #10) TEST K 
033 : ler ae aca? tn (Raa Ait 210) tk 
90 TEST Se TEST DBL (RHCS3 BIT #10) TEST K | 
02 i CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
03 : A ELEVEN WORD READ FROM AN ODD WORD BOUNDARY 
O04 : i ; , “ELEVEN "WoRD READ 8 AN ODD WORD BOUNDARY 
oe ii SHOY BIT #10 DBL 
0? : RHECK RHCS1, RHCS2, RHBA, RHBAE , RHWC 
0 | KX MSSSSSSLULERESERERAEEKE SEAR AA SRSA ERAEARAEARARARAARAAALLEAARARALES 
10 0330c 000004 téTS2: SCOPE 
11 033024 012706 001000 MOV #STACK, SP -RESET STACK 
1g 033030 012737 000052 oD4ESt MOV aS2, caTSTNM “SAVE TEST NUMBER 
14 033036 004737 040322 JSR PC, deCl.DISK -GIVE RH INITIALIZE 
1S : SETUP INT NUBER 
16 : 
17 
18 
3 
y 


4 Ad's SETTING “CLR” BIT #5 
INIT THE RH 


‘A NELEVEN N WORD READ FROM AN 
:ODD WORD BOUNDARY WAS DONE 


: THEN 
; RHCS3 SHOULD HAVE DBL 
‘BUT CONTAINED WHAT IS 


0332042 012701 000003 MOV #3,R1 peta NI OF T 
20 033046 Ole702 003002 MOV sa 001), Re T THREE WORD BUFFER 
: + BRON AN 000 <HORD 80 NDARY 
033052 012722 oS52525 1S: MOV w52525 , (R2)+ iHOVE TH NTO BUFFER 

23 033056 005301 DEC Ri . 
24 033060 001374 BNE 1$ BRANCH F THREE NO NOT DONE NE 
25 033062 012777 oo3002 150774 MOV WBFODD,dRHBA =: SET BUS. ADDRES ART 
Ob ROM AN ODD WORD TOONDARY 
2? 033070 012777 177765 150764 ~~ MOV #-11..QRHWC :WORD COUNT LEV EN 
28 033076 004077 151536 | JSR RO, JCOMND “GO TO DO COMMAND 
23 033102 904160 READAT ‘READ DATA 

1 

2 “CHECK THAT RHCS3 HAS DBL 

: 033104 012737 oO0e000 901124 MOY #DBL , SGDDAT ;GET GOOD = 2000 

S 033112 017737. 151014 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 | FOR COMPARISON 
& 033120 023737 001124 O01126 CMP $GDDAT,SBDDAT :COMPARE EXP 

Z iDAT WITH BATA READ FROM 
§ 033126 00140! BEQ ~Sts«éGS SG ‘BRANCH IF GOOD 

: 033130 104124 ERROR 124 

o 

3 

i 

5 

6 

7 


SEES EEE CWWWWWWWWa 


+ b= b— ++ bb b— P+ 2 = Bb = 2 = 0 B+ Bb 2 0 = 2 0 2 b= 8 0 = = Pb 2 2 2: b> bb fb bP bP = bo = pp pe + pe 
co 


4g :GIVEN IN BAD RHCS3 
SO 033132 ESS: 

S1 033132 042777 oO007E 150720 BIC #76, JRHCS1 ; CLEAR FUNCTION BITS 
«Fea “CHECK THAT RHCS1 HAS RDY!D\ 

e3 022140 012737 oC4200 001124 HOV #RDY! OVA, SGDDAT "GET *c000 = 4200 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


b— »— + — > b— b— b+ 6 — b= b = D-- P— & - B — Ph = 


DITCMLIV SHOVE EWU OBO VEU é 


Qu 0 =n 0 Gas Gn Ge Han gn hn Pew Qn ae Gs Ge Gwe Hn Pen Qun pen Pan Has Gusgun Gus Garg Gas Gus spo Has Hun Gus Hus ges Ges fs Gan G0 Gus Gus Gc Gas Gun Quagun gn Gun Ger Gus gre Sus Gee 
tstah tit atu part iteteWtrbst att pret ay pet ois 


6-* 0-- b - b— b+ b— b— b— &- = b— b— b-—- b— 5 -= 6 bb = b= 9 b= = 2b 2 9 9 b= b— Pb — bp 


rurururur 


033146 
033154 


033162 
033164 


033166 
033166 
033174 
033202 
033210 


033216 
033220 


033222 
033222 
033230 
033236 


033244 
033246 


032250 


TSe 
017737 
023737 


001401 
104125 


012737 
053737 


017737 
023737 


001401 
104126 


012737 
017737 
023737 


001401 
104131 
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BU1 


TEST OBL (RHCS3 BIT #10) TEST K 


150706 O01126 
O01ie4 OOlleb 


67$: 


001124 
001124 


001126 
001126 


000100 
005010 
150662 
001124 


693: 


000000 001124 


150626 001126 
001124 OO0l1ie6 


718: 


PAGE 208 
MOV JRHCS1 , SBDDAT 
CMP SGDDAT, SBDDAT 
BEQ 67$ 
ERROR 125 
‘CHECK THAT RHCS2 HAS I 
OV #IR, SGDDAT 


BIS UNIT, SGDDAT 
MOV JRHCS2, SBDDAT 
CMP SGDDAT , SBDDAT 


BEQ 695 
ERROR 126 


“CHECK THAT RHWC HAS O 
HOV #0, SGDDAT 

MOV JRHWC , SBDDAT 
CMP SGDDAT, SBDDAT 


BEQ 71$ 
ERROR 131 


*READ RHCS1 FOR COMPARISON 
gORTR WITH DATA READ FROM 
*BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 


;IN_RHCSe TO INIT THE RH 


A ELEVEN WORD READ FROM AN 
; ODD WORD BOUNDARY WAS DONE 


; THEN 
;RHCS1 SHOULD HAVE RDY!DVA 


BUT CONTAINED WHAT IS 
“GIVEN IN BAD RHCS1 

»GET = 100 

- INCLUDE UNIT NUMBER 

Aer RHCS2 FOR COMPARISON 
;DATA_ WITH DATA READ FROM 
: BRANCH IF GOOD 


;AFTER SETTING "CLR" BIT #5 


;IN RHCSe TO INIT THE RH 


‘TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS2 
GET GOOD = 0 

sREAD RHWC FOR COMPARISON 

“COMPARE EXPECTED 

-DATA WITH DATA READ FROM 

*BRANCH IF GOOD 


A ELEVEN WORD READ FROM AN 
WORD BOUNDARY WAS DONE 


; AP TER a5 TING “CLR” BIT #5 
NIT THE 


N 
RHWC SHOULD HAVE 0 
;sBUT CONTAINED WHAT IS 
;GIVEN IN BAD RHWC 


EO St te ee te oe + on 


Sr rr ee = 


eT ee a ee a ae ce 


AD 


FUTUTU TL) &— e— o— b&b ps 


rururururururururururururururu 
UAE Corot Co.DoD Oru torre 


Re 


> b— &— b— > — b= 0 2 0 0 0 2 2 0 bP 2 0 0 2 2 2 0 2 2 2 2 0 2 2 2 2 2 8 2 2 2 2 2 2b 2 2 b> 0 2 b= pb 2 9 


033270 
033274 


033300 
033304 
033306 
033310 


033316 


033324 
033332 
033336 


033340 


033346 
033354 


033362 
033364 


033366 


ANAE Pit Oe tse 


000004 
012706 
012737 
004737 


012737 
017737 
023737 


001401 
104124 


meth dle d, a? 


001000 
000083 


040322 


009003 
003000 


US2eS5e5 
003000 
177766 
000010 
151302 


oo0000 


150560 
001124 


OO46S6 


1S0S46 


150536 
150536 


001124 


001126 
001126 


-SEP-76 
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We OK OC OK ic oie oie sree 
== 
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s ERLER ERLE REEL EAGLE ERLE EEE R EERE ELE EL ERE ER EERE EEE ERLE ES 
ES OBL (RHCS3 BIT #10) TEST L 


CLEAR THE eye BY A CONTROLLER CLEAR (RHCSe BIT #5) 
UP F READ 


SET OR A_TEN 
WITH BAI IN RHCSe BI 
DO A TEN WORD READ F 


FROM AN EVEN WORD BOUNDARY 
EVEN WORD BOUNDARY 


ROM AN 
THIS SHOULD NOT SET RHCS3 BIT #10 DBL 


CHECK 






CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 
es Bs war5id bilan teen 
SCO 









MOV aS TACK oP sRESET STACK 
MOV aetSTNM -SAVE TEST NUMBER 
JSR _poqen sgIve RH INITIALIZE 
tHe RHIC BN ANB BUNCTION BITS IN RHCS1 
SET UP FOR ATEN WORD RERD FON A EVEN WORD BOLNOAR 
hov #3,R1 -COUNT OF THRE 
MOV SBtEVEN, Re -START THREE 

; FROM AN EVEN WORD BOUNDARY 
NOV #52526, (R2)+ MOVE THREE S2S2S INTO BUFFER 
BNE is COUNT IF THREE NOT DONE 
MOV SBFEVEN, JRHBA :SET BUS ADDRESS TO START 

FROM AN EVEN WORD BOUNDARY 
MOV #-10. , dRHWC ; WORD cotINT TEN 
BIS #BAI SRHCS> -SET BAI'I S2 

SSR Ao aCOMND. -GO TO DC COMMAND 
READAT ‘READ DATA 
“CHECK THAT RHCS3 HAS O 
HOV #0, SGDDAT -GET GOOD = 0 
MOV DRHCS3,SBDDAT  ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT.SBDDAT ;C 

-DATA WITH DATA READ FROM 
BEQ 65$ *BRANCH IF GOOD 
ERROR 124 


sAFTER SETTING “CLR” BIT #5 


;IN_RHCS2 TO INIT THE RH 
‘a TEN WORD READ FROM AN 
WORD Y WAS DONE 


BOUNDAR 
sHITH BAI IN RHCSe SET 


sRHCS3 SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS3 


SO OE A 


DUL 
















MAINDEC-11-DERHAC-A MACY] e7(7 ¢SEP-76 :SS PAGE 210 
DERHAC.P11 RHAC SS TEST b3 T #10) TEST L 
033366 042777 BIC “CLEAR FUNCTION BITS 
- CHECK Thar "RCS Has Rov bua 
033374 012737 OV DVA, scocAtT -GET GOOD = 4200 
033402 017737 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
033410 023737 CMP SGDDAT,S$BDDAT :;C E 
; DATA WITH DATA READ FROM 
033416 001401 BEQ 67$ : BRANCH IF GOOD 
033420 104125 ERROR 125 é 
-AFTER SETTING “CLR” BIT #5 
-IN RHCS2 TO INIT THE RH 
-€ TEN WORD READ FROM AN 
43 Y WAS DONE 
it < I IN Se SET 
;RHCS1 SHOULD HAVE RDY!DVA 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS1 
033422 675: 
“CHECK THAT RHCS2 HAS IR!BAI 
033422 012737 000110 OV #IR'BAI,SGDDAT ;GET GOOD = 110 
033430 053737 O0S010 BIS UNIT, SGODAT ‘INCLUDE UNIT NUMBER 
033436 017737 150426 MOV DRHCS2,SBDDAT  ;READ RHCS2 FOR COMPARISON 
033444 023737 OOlle CMP SGDDAT.S$BDDAT  ;COMPARE 
: “DATA WITH DATA READ FROM 
0334S2 O01401 BEQ 69 -BRANCH IF GOOD 
933454 104126 ERROR 126 
-AFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 
-@ TEN WORD READ FROM AN 
“EVEN WORD BOUNDARY WAS DONE 
Oe WITH BAI IN RHCSe SET 
o4 RHC Se SHOULD HAVE IR!BAI 
06 : TOGETHER WITH UNIT NUMBER 
07 -BUT CONTAINED WHAT IS 
08 -GIVEN IN BAD RHCS2 
039 033456 69S: 
10 “CHECK THAT RHWC HAS O 
1 033456 012737 oo0000 o01124 Mov #0, SGDDAT :GET GOOD = 0 
13 033464 017737 150372 9001126 MOV JRHWC,SBDDAT  § ;READ RHWC FOR COMPARISON 
14 033472 023737 001124 O01126 CMP SGDDAT,SBDDAT ;COMPARE EXPECT 
1 sDATR WITH DATA READ FROM 
17 932500 0014901 BEG 71S *BRANCH IF GOOD 
18 033502 104131 ERROR 131 
19 -AFTER SETTING “CLR” BIT #5 
20 -IN RHCS2 TO INIT THE RH 
21 -@ TEN WORD READ FROM AN 
22 -EVEN WORD BOUNDARY WAS DONE 


—___ a - 
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DERHAC. P11 53 (RH é3 #10) TEST L 

11323 sWITH BAI IN RHCS2 SET 

11324 ; THEN 

il *RHWC SHOULD HAVE 0 

ll ‘BUT CONTAINED WHAT IS 

11327 -GIVEN IN BAD RHWC 

11328 033504 71S: 

11329 

11330 

11332 

11333 oa pee, OO Peer: 
11334 -*TEST SY TEST DBL (RHCS3 BIT #10) TEST M 

11 :# TEM LER EAR (RHCS2 BIT #5) 
tts : # ite FORA ONE WRI RITE RE eROM AN EVEN WORD BOUNDARY 
11338 + i DO A TE REVERSE CRON AN VEN WORD BOUNDARY 
11333 + THIS oNourDN Rot ue RHCS3 BIT #10 et 

11341 * CHECK RHCS1,RHCS2, RHBA, RHBAE, RHWC 

11343 ng nageauaamaaeaasaatoes ar cic pamaaeaiai maar ERE MRE: NTC 
11344 933504 oop0004 téTsu: 

1134S 033506 012706 9001000 iy wSTACK,S sRESET STACK 

11346 033512 012737 OO00S4 oo4Ess MOV sey gate TNM “SAVE TEST NUMBER 

11348 033520 004737 o40322 JSR PC, J¥CLDISK -GIVE RH INITIALIZE 

11349 ; SET UP UNIT NUBE 

11350 *CLEAR RHWC AND FUNCTION BITS IN RHCS! 
11352 -SET UP FOR A ONE WORD ore REVERSE FROM AN EVEN WORD BOUNDARY 
11353 033524 9012701 oo0003 hov #3,R1 s COUNT OF TEE 

11354 033530 012702 003000 MOV SarEVEN, R2 

1136 Fron OH BN EVEN WOR 0 a SURRARY 

11358 033534 12722 052525 1$: NOV #52525, (R2)+ S INTO BUFFER 
11358 033542 BOT BRE ig SOUT, IF THREE NOT DONE 

11359 033544 012777 003000 150312 MOV ¥BFEVEN,@RHBA :SET BUS ADDRESS TO START 

11360 -FROM AN EVEN WORD BOUNDARY 

11361 033552 012777 177777 150302 MOV #-1,dRHWC ;WORD COUNT ONE 

11362 033560 004077 151054 JSR RO, aCOMND -GO TO DO COMMAND 

11363 033564 oo4204 REVWRT -REVERSEWRITE DATA 

11365 

11366 -CHECK THAT RHCS3 HAS O 

11367 033566 012737 OO0000 001124 Ov #0, SGDDAT -GET GOOD = 0 

Hie SascGd Glee caries RUE |G SRGRTSERDRAT Rope Rs coi goss 

{135 :DATA WITH DATA READ FROM 

11375 033610 001401 Q £55 sRHCSS IF GOOD 

11374 O3361le 104124 FE OR 124 

11375 :AFTER SETTING “CLR” BIT #5 

11376 -IN RHCS2 TO INIT THE RH 

11377 -A ONE WORD WRITE REVERSE FROM AN 
11378 “EVEN WORD BOUNDARY WAS DONE 


—_— —_—— = — ee ee ate ee a ee —-—- -—<- 
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DERHAC . P 


11379 


— 
GIGS 
cog 
© 


Poe Seas 


ee 
SR 


033614 
033614 


033622 
33630 
3636 


033644 
033646 


033650 


033650 
033656 


033664 
033672 


033700 
033702 


033704 
033704 
033712 
033720 


033726 
033730 


TS4 


042777 
012737 


023737 


001401 
104125 


012737 
053737 


017737 
023737 


001401 
104126 


012737 
017737 
023737 


001401 
104131 


Ul 
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TEST OBL (RHCS3 BIT #10) TEST M 
: THEN 
*RHCS3 SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
ine -GIVEN IN BAD RHCS3 
? yEUNCTION BITS 
— Check rar’ erie? HAS sci by: 
104200 o01124 #SC!RDY!DVA, SGDDAT * GET GOOD = 104200 
0224 001126 MOV RHCS | FOR COMPARISON 
sats 4 001126 CMP SeDSaT’ SEDDAT COMPARE XPECTED 
DATA ETE DATA READ FROM 
*RHCS1 
BEQ 67 ‘BRANCH IF GOOD 
ERROR 125 
-AFTER SETTING “CLR” BIT #5 
:IN RHCS2 TO INIT THE RH 
=A ONE WORD WRITE REVERSE FROM AN 
;EVEN WORD BOUNDARY WAS DONE 
if CSI D HAVE SC!RDY!DVA 
BUT CONTAINED WHAT IS 
“a *GIVEN IN BAD RHCS1 
: ;CHECK THAT RHCS2 HAS IR!OR 
000300 001124 MOV #IR! OR, SGDDAT T GOOD = 300 
005010 O01124 BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 
150200 o01126 MOV JRHCS2,SBDDAT ;READ RHCS2 FOR COMPARISON 
001124 001126 CMP $GDDAT. SBDDAT -COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
BEQ 69 *BRANCH IF GOOD 
ERROR 126 
AFTER TTING TLR BIT a5 
-IN RHCSe TO INIT RH 
<A ONE WORD WRITE REVERGE FROM AN 
sEVEN WORD BOUNDARY WAS DONE 
; RHCS2 SHOULD HAVE IR!OR 
TOGETHER WITH UNIT NUMBER 
‘BUT CONTAINED WHAT IS 
se :GIVEN IN BAD RHCee 
: “CHECK THAT RHWC HAS 0 
oos090 001124 MOV #0, SGDDAT -GET GOOD = 0 
150144 001126 MOV JRHWC,SBDDAT §§ ;READ RHWC FOR COMPARISON 
001124 o01126 CMP SGODAT,SBDDAT  ;COMPARE EXPECTED 


;DATA WITH DATA READ FROM 
:BRANCH IF GOOD 
sAFTER SETTING “CLR” BIT #5 


BEG 71$ 
ERROR 131 


em er ee et tee eee eee cee 
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033732 


033770 
033772 
034000 
034006 
034012 


034014 


034022 
034030 


034036 
034040 


TS4 


000004 
012706 
012737 


004737 


012701 
012702 


Ole7ee 
005301 


012737 
017737 
023737 


001401 
104124 
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001000 
000055 
040322 


000003 
003000 
0S2Se5 
003000 


177776 
150626 


000000 


150104 
001124 


GU4ES6 


150064 
150054 


001124 


001126 
01126 
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TEST OBL (RHCS3 BIT #10) TEST M 


71$: 


; IN RHCS2 TO INIT THE RH 
A ONE WORD WRITE REVERSE FROM AN 
WORD BOUNDARY WAS DONE 


Neh 


RUT CONTPINED, i WHAT IS 






iteet ce teey DBL (RHCGa BIT #10) TEST NS 


 £TE 


# 
-# 
- 
+ 
-# 

3 


tétss: 


1$: 


TEST DBL (RHCS3 BIT #10) TEST N 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 

as! FOR A TWO WORD WRITE REVERSE Be ee EVEN ee BOUNDARY 
PHIS CHOULD NOT a REVERSE FRON #10 “Oat 
CHECK RHCS3 


CHECK RHCS1,RHCS2, RHBA, RHBAE , RHWC 


- SLEZELALALEASRALALAALAELAALELSLLERELAE LAL EAAL LEAL LLELALLELEE 
SCOPE 


MOV eSTACK, SP 
MOV #5S, a8TSTNM 


JSR PC, a#CLDISK 


aoe STACK 

SAVE TEST NUMBER 

sGIVE RH INITIALIZE 

;SETUP UNIT NUBER 

sCLEAR RHWC AND FUNCTION BITS IN RHCSi 


isn UP FOR 2A TWO WORD COUN REVERSE FROM AN EVEN WORD BOUNDARY 
SaPEVEN, Re “START THREE WORD BUFFER 
-FROM AN EVEN WORD BOUNDARY 
NOY #52525, (R2)+ VE_THREE S2S25 INTO BUFFER 


NE 1$ 

MOV #BFEVEN,IRHBA :SET BUS ADDRESS TO START 
-FROM AN EVEN WORD BOUNDARY 

MOV #-2,9RHWC ;WORD COUNT TWO 

JSR RO, JCOMND -GO TO DO COMMAND 

REVWRT *REVERSEWRITE DATA 


i BRANCH IF THREE NOT DONE 


-CHECK THAT gRHCSS HAS 0 
hov #0, SGDDA 


MOV JRHCS3, SBDDAT 
CMP $GDDAT , SBDDAT 


;GET GOOD = 0 


sREAD RHCS3 FOR COMPARISON 
;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


sRHCS3 
BEQ 65$ :BRANCH IF GOOD 
ERROR 124 
iON RE SETTING +t BIT #5 


N RHCSe TO INIT THE RH 
:A TWO WORD WRITE REVERSE FROM AN 


— —_— = -_- 
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RHAC.P11 TSS TEST DBL (RHCS3 BIT #10) TEST N 
11491 -EVEN WORD BOUNDARY WAS DONE 
tues sRtee9 SHOULD HAVE O 
11494 BUT CONTAT D WHAT IS 
11495 -GIVEN IN BAD RHCS3 
11496 oO34042 65S: 
11497 O24O042 O42777 000076 150010 BIC 876, JRHCS1 CLEAR F FUNCTION BITS 
11498 “CHECK THAT RHCS1 HAS SC'RDY!DVA 
11499 034050 012737 104200 001124 MOV #SC!RDY!DVA, SGDDAT -GET GOOD = 104200 
11501 O340S6 017737 147776 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
11502 O34064 023737 001124 O01126 CMP SGDDAT.$BDDAT  ;CO 
11503 ‘DATA WITH DATA READ FROM 
11504 
1150S : 4072 001401 BEQ 67 i BRANCH IF GOOD 
11 4074 104125 ERROR 125 
11507 :AFTER SETTING “CLR” BIT #5 
11508 IN RHCSe TO INIT THE RH 
11509 A TWO WORD WRITE REVERSE FROM AN 
11510 “EVEN WORD BOUNDARY WAS DONE 
11511 : THEN 
115le jRHCS1 SHOULD HAVE SC!RDY!DVA 
11513 4200 
11514 ‘BUT CONTAINED WHAT IS 
11515 :GIVEN IN BAD RHCS1 
11516 034076 673: 
11517 “CHECK THAT RHCS2 HAS IR!OR 
11518 O34076 012737 O00300 001124 MOV #IR!OR.$GDDAT  ;GET GOOD = 300 
11513 034104 053737 005010 001124 BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 
11521 O34112 017737 1477S2 001126 MOV IRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
11522 ©34120 023737 001124 O01126 CMP SGDDAT,$BDDAT  ;COMP 
11523 sDATA WITH DATA READ FROM 
11524 RHCS2 , 
11525 034126 001401 BEQ 69 t BRANCH "IF GOOD 
11526 O34130 104126 ERROR lesb 
11527 . -AFTER SETTING “CLR” BIT #5 
11528 :IN RHCS2 TO INIT THE RH 
11529 A TWO WORD WRITE REVERSE FROM AN 
11530 sven N WORD BOUNDARY WAS DONE 
11832 ty SHOULD HAVE IR!OR 
11534 ‘TOGETHER WITH UNIT NUMBER 
11535 BUT CONTAINED WHAT IS 
11536 -GIVEN IN BAD RHCS2 
11537 034132 693: 
11538 “CHECK THAT RHWC HAS 0 
11533 034132 012737 ooco00 oOlies MOV #0, SGDDAT -GET GOOD = 0 
11541 034140 017737 147716 Of1126 MOV JRHWC,SBODAT § ;READ RHWC FOR COMPARISON 
11542 O34146 023727 001124 OOlle6 CMP SGDDAT,$BDDAT  ;COMPARE EXP 
11543 ‘DATA WITH DATA READ FROM 
11544 : RHWC 
1154S 034154 cO1401 BEQ 71$ ‘BRANCH IF GOOD 
11546 O34156 104131 ERROR 131 


U1 
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€.P1ll TSS TEST DBL (RHCS3 BIT #10) TEST N 

11547 - -AFTER SETTING “CLR” BIT #5 
11548 -IN RHCS2 TO INIT THE RH 
15d *A TWO WORD WRITE REVERSE FROM AN 
L15s¢ 4 WORD BOUNDARY WAS DONE 

i 
t 1225 fh ruc, SHO AA nat IS 
11554 ‘GIVEN IN BAD RHWC 
1155S O34160 71S: 
11556 
te 
11589 + EEE SEEGER EARLE SESE SRE SEE LER ER LA RA REAL ERLE RAE RAL ALAA RELA ERLAELEE 
11560  ETEST Sb TEST DBL (RHCS3 BIT #10) TEST O 
11562 : # CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT 
11563 : SET UP FOR A TWO WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
11564 : DO A TWO WORD WRITE REVE E FROM AN ODD WORD BOUND 
11565 i THIS, SHOULD SET RHCS3 BIT 
L186? * i RHE KK RHEey RHCS2, RHBA, RHBAE , RHWC 
115693 « LEER EL ERE EG ERE RE LEER ERE ERE AR ARERR REAR ERLE AREAL RA ALLEL EELEE 
test BS4iee Ot 12706 001000 t8TS6: soe eSTACK SET STACK 
Li87e BaUtEE +5708 000056 sO46éS6 MOV #56, Se ee tN CEE TEST NUMBER 
11574 034174 004737 oO40322 JSR PC, J#CLDISK ne RH INITIALIZE 
11575 ; SET UP UNIT NUBER 
1299 ‘CLEAR RHWC AND FUNCTION BITS IN RHCS1 
11578 -SET UP FOR A TWO WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
11579 oO34200 012701 000003 MOV #3,R1 -COUNT OF T 
11580 O34204 Ole702e 003002 MOV Saf 000, Re -START THREE WORD BUFFER 
1158} :FROM AN ODD WORD BOUNDARY 
11582 oO34210 012722 oS2525 1S: MOV #52525, (R2)+ ; MOV ET 52525 INTO BUFFER 
11582 034214 005301 DEC Rl - COUNT 
11584 034216 001374 BNE 1$ *BRANCH IF THREE NOT DONE 
11585 O3422e0 012777 003002 147636 MOV ¥BFODD,9RHBA #§ ;SET BUS ADDRESS TO START 
11586 ODD WORD BOUNDARY 
11587 oO34226 012777 177776 147626 MOV #-2,dRHWC ;WORD count TWO 
11588 034234 004077 150400 JSR RO, aCOMND -GO TO DO COMMAND 
11589 034240 o04204 REVWRT *REVERSEWRITE DATA 

11591 
11592 “CHECK THAT RHCS3 HAS DBL 
11583 o34242 012737 o02000 001124 MOV #DBL , SGDDAT -GET GOOD = 2000 

1159S 034250 017737 147656 001126 MOV JRHCS3,SBDDAT  ;READ RHCS3 FOR COMPARISON 
11596 O34256 023737 O01124% 001126 CMP SGDDAT;S$BDDAT  ;COMPARE EXPECTED 

11537 sDATA WITH DATA READ FROM 

11599 O34264 001401 8EQ b5S BRANCH IF GOOD 

11600 O34266 104124 ERROR le4 

11601 -AFTER SETTING “CLR” BIT #5 

116092 :IN RHCS2 TO INIT THE RH 
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S6 TEST bat (RHCS3 Bit : 3 


DERHAC.P11 #10) TEST 
11603 A TWO WORD WRITE REVERSE FROM AN 
11604 900 WORD BOUNDARY WAS DONE 
11605 N 
11606 sRHCS3 SHOULD HAVE DBL 
1i6C7 


11808 Me RRP RHE 5 


11610 034270 65S: 





















11611 034270 042777 OC0076 147562 es a 76, QRHCS] CLEAR FUNCTION BITS 
L818 034276 012737 104200 001124 isi eee BBY Thva. $8baR° -GET GOOD = 104200 
Hele OsMai2 Gears? O1ie4 OOLLSE CMP =—sSCDDAT’SEDDAT COMPARE EXPECTED 
11617 {Sava aITH DATA READ FROM 
11619 934320 901491 peo, 28 {BRANCH TF ooo 

HESS -AFTER SETTING “CLR” BIT #5 
11622 sIN RHCS TO I T0 INIT THE RH ati bn 
1 tPSi Gob Ay tins DONE 
1162S : THEN 

11626 ;RHCS1 SHOULD HAVE SC!RDY!DVA 
11628 BUT CONTAINED WHAT IS 
11629 -GIVEN IN BAD RHCS1 

3 Bement O75: CHECK THAT RHC IR! OR 

11632 034324 012737 000300 001124 MOV BR Sc0bA ; T GOOD = 300 

11633 034332 053737 OOSO1O0 001124 BIS UNIT. OStonT INCLUDE UNIT NUMBER 

11635 O3434O 017727 147524 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 
11636 O34346 023737 001124 O01126 CMP SGDDAT.$BDDAT  ;COMPARE EXPECTED 

11637 ;DATA WITH DATA READ FROM 
11639 034354 001401 BEQ 69% t BRANCH IF GOOD 

11640 O34356 104126 ERROR 126 

11641 sAFTER SETTING “LR” BIT #5 
11642 -IN RHCSe TO INIT THE RH 
11643 "A TWO WORD WRITE REVERSE FRCM AN 
11644 -ODD WORD WAS DONE 
LI64S se 

11646 SHOULD HAVE IR!OR 
11648 TOGETHER WITH UNIT NUMBER 
11649 BUT CONTA D WHAT IS 

11 RHCS2 

11651 034360 69S: 

11652 “CHECK THAT REWC HAS O 

11653 034360 012737 oO0000 001124 OV #0, SGODAT -GET GOOD = 0 

11655 034366 017737 147470 001126 MOV JRHWC,SBDDAT #§ ;READ RHWC FOR COMPARISON 
11656 034374 0623737 001124 001126 CMP SGDDAT,SBDDAT ;COMPARE EXPECTED 

11657 ‘DATA WITH DATA READ FROM 
11658 - RHIC 


rrr te te tre eee cet GES Gt ee ce ae 


“ee 


BaRR PERE 


Be 


SRERE RR Srerereriae 


NNNNNSA 
2 


b= b= bb 
£Wwro-O 


034402 601401 
034404 194131 


O34406 





034512 
C34514 


147410 
147400 


001124 


001126 
001126 


KO1 
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BIT #10) TEST 
BEQ 71§ ;BRANCH IF GOOD 
ERROR 131 





ih ee five hn * 


WRITE REVERSE FROM AN 
WORD BOUNDARY WAS DONE 





HAVE 0 
WHAT IS 
RHWC 


;RHWC SHOULD 
;BUT CONTAI 


GIVEN IN 





718: 


RELLLE 





5 HEE AE AE aE HE AE 
;#TEST S7 TEST OBL (RHCS3 BIT #10) TEST P 


Ly ARP Ee STARE FRA orn 
8 RaRrLR KIS ava Be" = HOW Save 


CHECK RCSL, RHCS2 , RHBA, RHBAE , RHC 








OC Cp RC 










RELLRELE 






sRESET STACK 






















“SAVE TEST NUMBER 
JSR PC, a8CLDISK -GIVE RM INITIALIZE 
“SETUP UNIT 
CLEAR RHWC AND FUNCTION BITS IN RHCS! 
-SET UP FOR A THREE WORD FROM AN EVEN WORD BOUNDARY 
MOV #3,R1 COUNT OF TREE ome 
MOV #BF EVEN, Re TART FF ERO BUFFER 
Pron AN 
1S: #52525, (R2)+ 
Rl 
-CHECK THAT RHCS3 HAS DBL 
hov s08L , SGODAT -GET GOOD = 2000 
MOV SRHCS3,SBDDAT #;READ RHCS3 FOR COMPARISON 
CMP SGDDAT’ $BDDAT 


Bare uTW GAA Reso FROM 


SBRANCH IF G000 








BEG 655 
ERROR ile4 


al —_-— -_ —_——— a) ee ee -——— =e a — ee ~- ~~. | -_-e-—- « --*. - -~ - ~- 7 . ell 
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DERHAC.P11 ? TEST ( 
11715 AFTER SETTING, roLR” BIT 85 

Hats DP teGe wo Wir elence Fron 
11718 “EVEN WORD BOUNDARY WAS DONE 

iiren $RHCS3 SHOULD HAVE DBL 

t1o52 “BUT CONTAINED WHAT IS 

11723 - cs -GIVEN IN BAD RHCS3 

L175 BaETE 042777 000076 147334 ; CLEAR FUNCTION BITS 

11727 034524 012737 104200 001124 -GET GOOD = 104200 

11729 034532 017737 147322 001126 - READ RHCS1 FOR COMPARISON 

0345 ; COMPARE TED 

7a ses ie ;DAT@ WITH DATA READ FROM 

11733 O35 GO140: *BRANCH IF GOOD 

1173S . ms BIT #6 

11736 $ EN + Qe a 
11737 . TE 

Ho sEVEN WORD BOUNDARY WAS CONE 

et : HAVE SC°RDY!SVA 

tipas ‘BUT CONTAINED WHAT IS 

L243 e at sBIVEN IN BAD RHCS1 

a win A ote 

L124? 001124 BIS oni stopaT . 

11749 O34S66 017737 147276 001126 MOV @RHCS2,SBDDAT :READ RHCS2 FOR COMPARISON 

74 SGDDAT,SBDDAT ; 

11750 034574 023737 OO1124 O01126 CMP Conan ae 

11752 Race 

11753 O34602 001401 BEG 69$ “BRANCH IF GOOD 

11754 O34604 104126 ERROR 126 — 

ie er ee eter ran 
11758 WORD BOUNDARY DONE 

11760 ; SHOULD HAVE IR?CR 

tis ur Cotas UT (Ae 

1176 : 

tIFES OS4GDE 695 aro 

11766 " - sCHECK THAT RHWC HAS 0 

11767 O34606 012737 o00000 o01124 hov #0, SGDDAT -GET GOOD = 0 

11769 034614 017737 147242 001126 MOV @RHWC,SBDDAT READ RHWC FOR COMPARISON 

11770 O3462e 023737 OO01124 OOlle6 CMP SGDDAT,SBDDAT ;COMPARE EXPECTED 





~~ — -—- —_— ——— i 
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DERHAC_F11 CH ARYA er (rates BIT w10) TEST 
LI771 -DATA WITH DATA READ FROM 
11355 34699 901401 eo 74S {BRANCH IF GOOD 
11774 O34e32 104131 131 
Hi 2 





SETTING “CLR” BIT #6 
BEM 








































11778 : 

11779 - THEN 

11780 

11781 

11782 

11783 034634 71S: 

11785 

11786 

11787 

11788 TEST DBL (RHCS3 BIT #10) TEST @ 

7 ° fe) ( BIT 
115aP + SET EET BoP Unt YE REVERSE Fron AN G60" LORD BOUNDARY 
11792 * DO A THREE WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
11793 : THIS NOT SET RHCS3 BIT 810 DBL 
11795 .% 1, RHCS2 , RHBA, RHBAE , RHC 
11796 
re 034634 oo0004 +iTE0 SCOPE 
11799 034636 012706 oo1000 * HOV RSTACK. SP SRESET STACK 
11800 034642 012737 OOO060 OOo4eSE MOV #60, a8TSTNM -SAVE TEST 
11802 O34650 004737 0o40322 : ISR PC, ASCLDISK -GIVE RH INITIALIZE 
11803 me, sSETUP UN 
11804 : CLEAR RHWC AND FUNCTION BITS IN RHCS! 
11806 -SET UP FOR A THREE WORD WRITE REVERSE FROM AN ODD WORD BOUNDARY 
11807 O34654 012701 o00003 fhOV #3,R1 -COUNT OF THREE 
11808 O34660 Ole702 003002 MOV sBF ODD, Re : START WORD BUFFER 
11809 =FROM AN BOUNDARY 
11810 O34664 012722 oS2525 1S: MO’ : MOVE INTO BUFFER 
11811 034870 00530! DEC ; COUNT 
t1813 O3HE74 012777 003002 147162 ACY BRO GUS AODRESS TO START 
tigis 034702 012777 177775 147152 MOV #-3,9RHWC ;WORD count ee a 
11816 034710 004077 147724 JSR RO, aCOMND -GO TO DO COMMAND 
11817 034714 OO42C4 REVWRT *REVERSEWRITE DATA 
11819 
11820 “CHECK THAT RHCS3 HAS O 
11821 034716 012737 oo0000 001124 HOV #0, SGDDAT -GET GOOD = 0 
11823 034724 017737 147202 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
11824 034732 0623737 OO1124 001126 CMP SGDDAT,$BDDAT  ;C E 
11825 ‘DATA WITH DATA READ FROM 
11826 *RHCS2 
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CONN Oh ££ 


Nake Gitn tore 
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Se et et ee eee 


ddan 


e-- © - &— » < © <- § <b 9 = 6 } — 8 = 8 = 9 = §-— = b= F— P= PP PF 2 2 0 2 0 2 2 bp pb bp hb bp bs bP hs 


Re8S3SS 





034740 
034742 


034744 
034744 


034752 


034760 
034766 


034774 
034776 





001401 
194124 


042777 
012737 
017737 
023737 


001401 
104125 


912737 
017737 
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TEST OBL (RHCS3 BIT & 


000076 147106 
104200 001124 


147074 001126 
001124 OO01126 


000300 001124 
005010 O0i1e4 


147050 001126 
OGile4 O011le6 


ooccoo 01124 
147014 001126 
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65S: 


673: 


&Ss: 


CMP SGDDAT , SBDDAT 


0) TEST @ 


sBRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
;IN RHCSe TO INIT 


op io Boteon TE REVERSE FROM AN 
*RHCS3 SHOULD HAVE 0 
UT RON aE atices 2S 

BIC #76,a j CLEAR FUNCTION BITS 

hove "yee! Beco] ng sclar a” -GET GOOD = 104200 
*READ RHCS1 FOR COMPARISON 


MOV JRHCS1 , SBDDAT 
iGRYa Titi DAFA READ FROM 


.. $RHCS1 
67$ : BRANCH IF GOOD 


BEQ 
ERROR 125 
sAFTER SETTING “CLR” BIT #5 
‘ -IN RHCSe TO INIT THE RH 
-A THREE WORD WRITE REVERSE FROM AN 
+ HE WORD BOUNDARY WAS DONE 


;RHCS1 SHOULD HAVE SC!RDY!DVA 


tBUT CON 
BU TAINED WHAT IS — 
; GIVEN IN BAD RHCS1 


“CHECK THAT RHCS2 HAS IR!OR. 
MOV #IR!OR.$GDDAT  ;GET GOOD = 300 
BIS UNIT, SGDDAT ‘INCLUDE UNIT NUMBER 


MOV MRHCS2,SBDDAT ;READ RHCS2 FOR COMPARISON 
$GDDAT , SBDDAT 


BEQ 65$ 
ERROR 124 








CMP -COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 





sRHCS2 

Hin panne hay 
sAFTER SETTING “CLR” BIT #5 
PEEP "letter 


TE 
SHOULD HAVE IR! OR 


t TOGETHER WITH UNIT NUMBER 


BUT RIN BAD AAG eed IS 


»GET GOOD = . 
sREAD RHWC FOR COMPARISON 


“CHECK THAT RHWC HAS O 
ov #0, SGDDAT 
MOY DRHWC, SBDDAT 





‘ 
~~ 


—- 


EE AT TT ee ee ee ee ee ee 


—————— <i ee ee ee EE Se EE ee —_——— ee 6 ee 


MAINDEC-11-DERHAC-A 
DE Pll T60 


pert b+ B= fF - > b p  pe he 
£3 60 6D 
ST 


BESRR LORE Eee 


0.0 
atatat= 


Beiiariic caeacaaaneaaet ct 


Diwmwotwrr 


Bitte 


b— b— b— b= b— 0 bb 0 0 0 bb BP 2 BO 2 2 0 0 0 0 2 8 bb 2b 2b 0 2 0 2 2 2 2 0 be 9 8 bb 2 be bp — 0 fb pe fo pe be fo 9 
WIIG) 
Un © Wy) 


b= b= b= bb = Db bb b= bb Bb 0 = bb b= bb bb 2b be bb bh be 0 bb bp bb fb bs br pp ps pe p= pe 


eB 5 


—OWOnNOU£Wwru-OwW 


035050 


035056 
035060 


035062 


035070 
035076 


035:S2 
035160 


023737 


001401 
104isi 


000004 
012706 
012737 
004737 


012701 
012702 


012722 


012737 
017737 
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TEST DBL (RHCS3 BIT #10) TEST @ 


001124 001126 


'> 


001000 
000061 


040322 


000003 
003000 
0S2e5e5 


003000 


177776 
000010 
147470 


000000 
146746 


OO46S6 


146734 


146724 
146724 


001124 
001126 


BUe 
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CMP $GDDAT,SBDDAT ;COMPARE EXPECTED . 
me WITH DATA READ FROM 

BEQ 71$ ‘BRANCH IF GOOD 

ERROR 131 


sAFTER SETTING “CLR” BIT #5 
sIN RHCSe TO INIT THE RH 

A THREE WORD WRITE REVERSE FROM AN 
: ODD WORD BOUNDARY WAS DONE 


N 
+ RHWC SHOULD HAVE 0 
;BUT CONTAINED WHAT IS 
715 GIVEN IN BAD RHWC 


- EAXLERL ALLE LALA LL LE LALA LERELA LALLA ELA LEL ELA RELLEAAELELELELELEELE 


‘ETE ST 61 TEST DBL (RHCS3 BIT #10) TEST R 

% CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 

: i SET UP FOR A TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 
: % WITH BAI IN RHCSe BIT #3 SET 

: DO A TWO WORD WRITE REVERSE FROM AN EVEN WORD BOUNDARY 

: i THIS SHOULD NOT SET RHCS3 BIT #10 DBL 

ta CHECK RHCS3 

: i CHECK RHCS1,RHCS2, RHBA, RHBAE, RHWC 


ee ee ee nee 


téTo1 


¥STACK, SP -RESET STACK 
#61, 28TSTNM -SAVE TEST NUMBER 
ISR PC, J#CLDISK esate INITIALIZE 
*CLEAR RHWC AND FUNCTION BITS IN RHCS1 
-SET UP FOR A TWO WORD wee REVERSE FROM AN EVEN WORD BOUNDARY 
OV #3,R1 “COUNT OF THREE 
MOV SB¢EVEN, Re ‘START THREE WORD BUFFER 
-FROM AN EVEN WORD BOUNDARY 
13: NOY #52525, (R2)+ -MOVE THREE S2525 INTO BUFFER 
BNE 1$ ‘BRANCH IF THREE NOT DONE 
MOV #BFEVEN,JRHBA ;SET BUS ADDRESS TO START 
-FROM AN EVEN WORD BOUNDARY 
MOV #-2, JRHWC j WORD couNt TWO 
BIS #BAI SRHCSS" Tg BAI 


;GO TO DO COMMAND 


ISR RO 
REVWRT *REVERSEWRITE DATA 


sCHECK THAT RHCS3 HAS 0 


MOV #0, SGDDAT 
MOV JRHCS3, SBDDAT 


;GET GOOD = 0 
READ RHCS3 FOR COMPARISON 


MAINDEC-11-DERHAC-A 
DERHAC.P11 Tél 


11939 
1940 


00.0000 
REEP ES PS 


rag 


wih 


ad St ab 


0 
o 


rine 
“NOU £ Gy) 


SBS dad Total So lnimscs ote 


BeRR 


b-2 bs bs & — b= b* = b= b= + BR fs Bs bee > > bb bb = 8 0 2 bb 0 2 2 2 2 2 bp bo ph bb pb bb 9 9 pe bp pe bh bo pe 
0.0 
co 
Ne 


- > - b> — b> bb — b— b— b— b— P= b— PF bP FF bb = bb = bb 2 Pe P= 2b be 2 b= 2 2b pe bp ph pp b— bp b= b> b= Pb bp hs hs 


994 


035166 


035174 
035176 


035200 
035200 
035206 
035214 
035222 


035230 
035232 


035234 
035234 
O3S24e 
035250 
035256 


035264 
035266 


023737 


001401 
104124 


042777 
012737 
017737 
023737 


001401 
104125 


012737 
053737 


017737 
023737 


001401 
104126 
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TEST DBL (RHCS3 BIT #10) TEST R 
0011e% 001126 


000076 
104200 


146640 
001124 


000310 
005010 


146614 
001124 


146652 
001124 


001126 
001126 


001124 
001124 


001126 
001i26 


CO 


OS-SEP-76 07:55 PAGE eee 


65S: 


67$: 


CMP 


BEQ 
ERROR 


igveck THAT, BACPA VPS BGA: mag :GET GOOD = 


JRHCS1, SBDDAT 
SGDDAT , SBDDAT 


MOV 
CMP 


BEG 
ERROR 


Mov BAI, $GDDAT 
BIS UNIT, SGDDAT 

MOV IRHCS2, SBDDAT 

CMP SGDDAT. SBODAT 

BEQ 69S 

ERROR 126 


$GDDAT , SBDDAT 


65$ 
124 


#76, dRHCS1 


67$ 
128 


c 


;CHECK THAT RHC Se HAS IR!SOR!BAI 
#IR!OR! 


; COMPARE EXPECTED 
sDATA WITH DATA READ FROM 


:RHCS 
t BRANCH IF GOOD 
sAFTER SETTING “CLR” BIT #5 
sIN RHCSe TO INIT T 
i TWO WORD WRITE REVERSE FROM AN 
EVEN WORD BOUNDARY WAS DONE 
‘ITH BAI IN RHCSe SET 
: THEN 
sRHCS3 SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS3 
j CLEAR FUNCTION BITS 
104200 
READ RHCS1 FOR COMPARISON 


Gata LitTh ATA READ FROM 


HCS1 
: BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 


IN, N RHCS2 TO INIT THE 


RH 
TWO WORD WRITE REVERSE FROM AN 

sEVEN WORD BOUNDARY WAS DONE 
us BAI IN RHCSe SET 
;RHCS| HOULD HAVE SC!RDY!DVA 
‘BUT "EONTAINED WHAT IS 
GIVEN IN BAD RHCS1 

;GET GOOD = 310 
; INCLUDE’ UNIT NUMBER 
sREAD RHCS2e FOR COMPARISON 


: COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


sRHCS2 
;BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #5 
:IN RHCSe TO INIT T H 
-A TWO WORD WRITE REVERSE FROM AN 
sEVEN WORD BOUNDARY WAS DONE 
4 1A, BAI IN RHCSe SET 


> TH 
sRHCSE SHOULD HAVE IR!OR!BAI 


THER WITH UNIT NUMBER 
gos CONTAINED WHAT IS 


MRINDEC-11-DERHAC-A 
DERHAC.P11 Tél 


us5270 
035270 
035276 
035304 


035312 
035314 


035316 


035316 
035320 
035324 


035332 


035336 
035344 


O3S346 
035352 


035356 
035362 
035364 


012737 
017737 
023737 


001401 
104131 


ooo004 
012706 
012737 


004737 


022737 
001103 


012701 
012702 


012722 
005301 
001374 
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TEST DBL (RHCS3 BIT #10) TEST R 


000000 001124 


146560 001126 
O0ile4% OO0lle6 


001000 
000062 


040322 


041710 


000003 
003000 


052525 


OO4ES6 


OO4640 


Ue 
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698: 


713%: 


MOV 


MOV 
CMP 


BEQ 
ERROR 


sCHECK THAT RHWC_HAS 0 
#0, SGDDAT 


JRHWC , SBDDAT 
SGDDAT , SBDDAT 


71$ 
131 


;GIVEN IN BAD RHCSe2 


;GET GCOD = 0 

i COMPARE EXPEC oon —_—o 
:DATA WITH DATA READ FROM 
: RHWC 

‘BRANCH IF GOCD 


sAFTER SETTING a BIT #5 
; IN N_RHCSe TO INIT RH 
TWO WORD WRITE REVERSE FROM AN 
EVEN WORD BOUNDARY WAS DONE 
WITH BAI IN RHCSe SET 


R HWC SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHWC 


ne ag ag a Oe OC eerenornens 
TEST OBL (RHCS3 BIT #10) TEST S 


CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 
any FOR A 


DO A NINE WORD READ REV 
THIS SHOULD SET RHCS3 BIT #10 DBL 


WK WK DK OK Dic OK 2k oe 


téTE2: 


1$: 


T 62 


CHECK 


M 
MOV 
JSR 


CMP 


NINE WORD READ 


REVERSE FROM AN EVEN WORD BOUNDARY 


ERSE FROM AN EVEN WORD SOUNDARY | 


RHCS 
CHECK RHCS1,RHCS2, RHBA, RHBAE 
IF MAG. 


TAPE NOT USED. THIS fest fs NOT DONE 


#62, a8 TSTNM 
PC, J#CLDISK 


sCMNDTM, COMND 


TST63 


s BRANCH 


#3,R1 
SBFEVEN, Re 


1$ 


#52525, (Re)+ 
Rl 


: ERLKE EERE EERE E REEL EEE EE EE LE LEAR A EE EAE REALE EERE 
SCOPE 
eSTACK, SP 


sRESET STACK 
;SAVE TEST NUMBER 


GIVE RH INITIALIZE 

: SETUP UNIT NUBER 

: CLEAR ae AND FUNCTION BITS IN RHCS1 
-IS TU THERE 


IF TU NOT THERE 


FOR A NINE WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 
sCOUNT OF THREE 


UN 
‘START THREE WORD BUFFER 
*FROM AN EVEN WORD BOUNDARY 
; MOVE THREE S2S2S INTO BUFFER 


‘ BRANCH IF THREE NOT DONE 


——?- —--——_ ——— ES 
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120S1 035366 012777 003000 146470 MOV #BFEVEN, JRHBA ¢ BUS ADDRESS TO START 












12052 FROM AN EVEN WORD BOUNDARY 

12053 035374 012777 177767 146460 MOV #-9. ,JRHWC ;WORD COUNT NINE 

1205S 035402 004077 147232 JSR RO,dCOMND __—_—«;GO ~TO DO COMMAND 

12056 035406 004200 REVRED *REVERSE READ 

12058 -CHECK THAT RHCS3 HAS DBL 

12053 035410 012737 OO02000 001124 MOV #DBL , $GDDAT -GET GOOD = 2000 

1206 S416 017737 146510 MOV RHCS3, sREAD RHCS3 OMPARISON 

iSoee Gaeuen 9989 doties botise CMP «6s SGOBRY’SBDDAT © ECOMPARE EXPECTED 

12063 ‘DATA whee DATA READ FROM 

12064 * RHCS3 

12066 035432 001401 BEQ bS$ :BRANCH IF GOOD 

l 035434 104124 ERROR 124 

12067 -AFTER SETTING cL BIT HS 

12068 IN Se T INIT 

18063 BN F WORD RED E REVERSE. FROM AN 
Y WAS D 

12071 

Le07¢ 'RHCSQ SHOULD HAVE DBL 

12074 Bu ONTAINED WHAT IS 

12075 -GIVEN IN BAD RHCS3 

12076 035436 65S: 

12077 035436 042777 O00076 146414 BIC #76, JRHCS1 “CLEAR FUNCTION BITS 

12078 “CHECK THAT. RHCS1 HAS RDY'DVA 

12079 035444 012737 cO4200 o01124 HOV #RDY'DVA,SGDDAT ;GET GOOD = 4200 

12081 O3S54S2 017737 146402 001126 MOV QRHCS1, SBDDAT ;READ RHCS1 FOR COMPARISON 

1e082 O3S5460 623737 001124 OO1126 CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 

12083 ‘DATA WITH DATA READ FROM 

{Spee 35466 001401 BEQ 67 gRHCSI IF GOOD 

tSbee 035 a8 104125 ERROR 125 

12087 :AFTER SETTING rcLRT IT 8S 

12088 : IN RHCSe at INIT T 

12089 <A N EAD REVERCE FROM AN 

12090 EVEN ‘FORD BOUNDARY WAS BONE 

12091 : THEN 

12092 ;RHCS1 SHOULD HAVE RDY!DVA 

12092 : =4o 

12094 *BUT CONTAINED WHAT IS 

12095 -GIVEN IN BAD RHCS! 

12096 035472 67S: 

12097 “CHECK THAT RHCS2 HAS IR 

12098 035472 012737 OOD100 001124 MOV #IR, SGDDAT :GET GOOD = 100 

12038 035500 053737 005010 001124 BIS UNIT. SGDDAT ‘INCLUDE UNIT NUMBER 

12101 O35S06 017737 146356 001126 MOV JRHCS2,$BDDAT  ;READ RHCS2 FOR COMPARISON 

lel0e 035514 023737 O01124 001126 CMP SGDDAT,$BDDAT ;COMPARE EXPECT 

12103 ‘DATA WITH DATA READ FROM 

1104 s RHCS2 

1e10S o3sSe2 001401 BEQ 69% :BRANCH IF GOOD 


lei06 O35524 104126 ERROR 126 


——— ee ———— ee ee eee we 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


MrT MN Ne ee a ee re 
WCW OWONOUSL Wire © 


035526 
035526 
035534 
O035S4e 


035550 
035552 


035554 


035554 
035556 
035562 
035570 


035574 
035502 


Tbe 


012737 
017737 
023737 


001401 
104131 


000004 
012706 
012737 


004737 


022737 
901103 


FOe 
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698: 
“CHECK THAT RHWC HAS 0 
oo0000 001124 MOV #0, SGODAT 
146322 001126 MOV JRHWC, SBDDAT 
O011e4% OoOl1126 CMP $GDDAT , SBDDAT 
BEQ. 71$ 
ERROR 1231 
718: 


sAFTER SETTING +t BIT #5 

‘IN RHCSe TO INIT THE RH 

-A NINE WORD READ REVERSE FROM AN 
‘EVEN WORD BOUNDARY WAS DONE 


me 
; RH Se SHOULD HAVE IR 
TOGETHER WITH UNIT NUMBER 


BUT CONTAINED WHAT IS 
VEN IN BAD RHCSe2 


;GET GOOD = 0 


*READ RHWC FOR COMPARISON 
«COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 


: RHWC 
‘BRANCH IF GOOD 


‘AFTER SETTING “CLR” BIT #5 
-IN RHCSe TO INIT THE RH 

-A NINE WORD READ REVERSE FROM AN 
; EVEN N WORD BOUNDARY WAS DONE 


N 
‘RH WC SHOULD HAVE 0 
: BUT CONTR ITED WHAT IS 
«GIVEN IN BAD RHWC 


: HHHHHHHHHHEHHEHHHHHHHHHE SESE EERESE SHIRE ESEREEEESERESE SSS SES SS 


SETEST 63 TEST DBL (RHCS3 BIT #10) TEST T 
# CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT # 
: T UP FOR WORD READ REVE ERSE F FROM AN EVEN | WORD BOUNDARY 
* i DO A TEN A HORD Fab REVERSE FROM AN a N WORD BOUNDARY 
: THIS SHOULD NOT SET RHCS3 BIT #10 D 
t CHECK RHCS3 
: CHECK RHCS1.RHCS2, RHBA, RHBAE , RHWC 
ta IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 
+ LEGGE EEE EL EEE SEE RE GEER RARER RARE ERAL ERLE LALA ARELEAAEAETARE 
+6753: SCOPE 
001000 MOV uSTACK, SP sRESET STACK 
000063 OO46S6 MOV #63, J8TSTNM -SAVE TEST NUMBER 
040322 JSR PC, J¥CLDISK -GIVE RH INITIALIZE 
; SETUP UNIT 
LEAR RHIC AND FUNCTION BITS IN RHCS! 
041719 oO4640 CMP #CMNDTM, COMND Ts TU THERE 
BNE TST64  ;BRANCH IF TU NOT THERE 


- — ~ o-—_ —_— —£:-. . 
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O3S64E 
35654 
35662 


035670 
03567e 


035674 
025674 


035702 
035710 
035716 


035724 
035726 


035730 


035730 
035736 


Ole701 
012702 


BOS361 


001374 
012777 


012777 
bbs206 


012737 
017737 
023737 


001401 
104124 


042777 
012737 
017737 
023737 


001401 
104125 


912737 
053737 


a“, 
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TEST DBL (RHCS3 BIT #10) TEST 


;SET UP FOR_A TEN WORD READ REVERSE FROM AN EVEN WORD BOUNDAR’Y 


000003 MOV #3,R1 
003000 MOV #BFEVEN, Re -START THREE WORD BUFFER 
-FROM AN EVEN WORD BOUNDARY 
052525 1S: M y g52525, (R2)+ un THREE S2S2S INTO BUFFER 
003000 146232 te SBFEVEN, JRHBA 7 BUS. ADDRESS 10. TORT 
‘ ey a EUPN BORD BOUNDARY 
177766 146222 MOV #-10.,dRHWC ;WORD COUNT. TEN 
46774 R MMAND 
_ Beep RO» SCOnND i REVERSE RERD 
“CHECK THAT RHCS3 HAS 0 
oo0000 001124 MOV #0, SGDDAT -GET GOOD = 9 
146252 001126 MOV JRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
O0i124 oO!126 CMP SGDDAT;$BDDAT  ;:COMPARE EXPECTED 
iDATR WITH DATA READ FROM 
BEG 653 *BRANCH IF GOOD 
ERROR 124 
:AFTER SETTING *cLR" BIT 45 
IN BY RHCS2 TO INIT 
WORD READ REVERSE FROM AN 
FEN WORD BOUNDARY WAS DONE 
*RHCS3 SHOULD HAVE O 
‘BUT CONTAINED WHAT IS 
pe -GIVEN IN BAD RHCS3 
000076 146156 '  -gIe #76, JRHCS1 “CLEAR FUNCTION BITS 
“CHECK THAT RHCS1 HAS RDY!DVA 
004200 001124 MOV #RDY!DVA,SGDDAT ;GET *G000 = 4200 
146144 001126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
001124 oO1i26 CMP SGDDAT;SBDDAT ;COMPARE EXPECTED 
gDATA WITH DATA READ FROM 
BEQ 67 ‘BRANCH IF GOOD 
ERROR 125 
:AFTER SETTING "oLR BIT #5 
= IN RHCSe TO INIT THE RH 
-A TEN WORD READ REVERSE FROM AN 
; EVEN WORD BOUNDARY WAS DONE 
:RH Sl SHCULD HAVE RDY!DVA 
‘BUT CONTAINED WHAT IS 
a -GIVEN IN BAD RHCS1 
“CHECK THAT RHCS2 HAS IR 
000100 001124 MOV #IR, SGDDAT :GET GOOD = 100 
cos5010 O01124 BIS UNIT. $GDDAT - INCLUDE UNIT NUMBER 


- —=———_ —— —_--* 


HO0e 
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12219 035744 017737 146120 001126 MOV DRHCS2,$BODAT  ;READ RHCS2 FOR COMPARISON 
1gee0 0357S2 023737 OO0l1e4 O01126 CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
leeel ‘DATA WITH DATA READ FROM 
le22e : RHCS2 
le2e3 035760 001401 BEQ 69S :BRANCH IF GOOD 
lece4 035762 104126 ERROR 126 
12225 -AFTER SETTING “CLR” BIT #S 
12226 :IN RHCS2 TO INIT THE R 
12227 -A TEN WORD RE REVERSE, FRO FROM GN 
leoes ; EVEN WORD BOUNDARY WA 
12229 N 
12230 ‘RHCS2 SHOULD HAVE IR 
15534 ot WITH UNIT NUMBER 
12233 :BUT CONTAINED WHAT IS 
12234 -GIVEN IN BAD RHCS2 
12236 035764 69S: 
l “CHECK THAT RHWC HAS 0 
12037 035764 012737 oo0090 001124 HOV #0, SGDDAT :GET GOOD = 0 
12239 035772 017737 146064 001126 MOV JRHWC , SBDDAT -READ RHWC FOR COMPARISON 
12°40 036000 023737 OO01124 O011e6 CMP SGDDAT,SBDDAT ;COMPARE EXPECTED 
12241 ‘DATA WITH DATA READ FROM 
eeus 036006 O0140! 30 ; BRANCH IF GOOD 
71 
12244 636010 104131 ERROR 131 
leet tnencse Tarp “LR” BIT as 
12247 ANE BSRD REND RE REVERSE FROM AN 
12248 EVEN. WORD BOUNDARY WAS DONE 
12249 : THEN 
12250 “RHWC SHOULD HAVE 0 
12251 ‘BUT CONTAINED WHAT IS 
12252 -GIVEN IN BAD RHWC 
12253 036012 71: 
12254 
12255 
12256 
lees? + LELE REESE HEGEL EEL LEG EGER ERLE REARS EE REE R EAS LA LAA RALE RES RERALAEL 
Lecs8 gt TEST 64 TEST DBL (RHCS3 BIT #10) TEST U 
12260 : CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
12261  # SET UP FOR A TEN WORD READ REV VERSE FROM AN ODD WORD BOUNDARY 
2ebe : D0 A TEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
1263 :# THIS SHOU SET RHCS3 BIT #10 DBL 
iS5ee : i CHECK RHC RHCS2. RHBA, RHBAE , RHWC 
12266 : APE NOT USED. THIS fest. IS NOT DONE 
lectbs eppsenanerneenneeanennennnonssenasonansnseenseeat 
lee63 036012 Ooo0004 +éT 64: PE 
lee70 026014 012706 001000 ty eSTACK, SP -RESET STACK 
ee?) 036020 012737 OO0064 OO4bSe MOV #64, J8TSTNM ‘SAVE TEST NUMBER 
12273 036026 004737 040322 JSR PC, J#CLDISK -GIVE RH INITIALIZE 


12274 -SETUP UNIT NUBER 


DEANRESPLL fed 


l2e 
lee76 


036032 
036040 


bebe 


036060 
036062 


036070 


O3e1 


036132 
036132 


036140 
036146 
036154 


036162 
036164 


022737 
001103 


B157H2 
BAES61 


001374 
012777 


012777 
004200 


012737 
017737 
023737 


001401 
104124 


042777 
012737 
017737 
023737 


001401 
104125 


Test 


041710 


Besbb3 


OS2Se5 


003002 
177766 
146536 


002000 
146014 
001124 


000076 
004200 


145706 
001124 


27(73 
BL (RH 


904640 


145774 
145764 


001124 


001126 
001126 


145720 
001124 


001126 
001126 


Es Bit 


1$: 


653: 


T0e 


P-7 c: PAGE ec 
=o bee il E 2e8 


*CLEAR RHWC_AND FUNCTION BITS IN RHCS1 


CMP -CMNDTM,COMND =? IS TU THERE 

BNE -TST6S =; BRANCH IF TU NOT THERE 

.SET UP FORA TEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY ! 
Poy LR PUNT PUREE | 
MOV —«-#BF ODD, R2 REE HIRO BUFFER | 

FROM ‘ac ODD. WORD BOUNDARY | 

NOY 852525, (R24 pO eee FNTO BUFFER : 
BNE 1S BRANCH IF THREE NOT DONE : 
MOV‘ 8BFODD,@RHBA SET BUS ADDRESS TO START 


*FROM AN ODD WORD BOUNDARY 


MOV #-10.,@RHWC ; WORD couNT TEN 


REVRED reece: RO veRce READ 


‘CHECK THAT RHCS3 HAS DBL , 
MOV #OBL, S$GDDAT “GET GOOD = 2000 


MOV JRHCS3,SBDDAT  ;READ RHCS3 FOR COMPARISON 

CMP SGDDAT,SBDDAT  ;COMPARE EXPECTED 
;DAT Q@ WITH DATA READ FROM 

BE 65$ t BRANCH IF GOOD 

ERROR 124 
-AFTER SETTING *LR® BIT #5 
*IN RHCS2 TO INIT THE RH 
*A TEN WORD READ REVERSE FROM AN 
5900 WORD BOUNDARY WAS DONE 
fee SHOULD HAVE DBL 
‘BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHCS3 

BIC #76, JRHCS1 “CLEAR FUNCTION BITS 

-CHECK THAT “RHCS1 HAS RDY!DVA 

MOV #RDY!DVA,SGDDAT ;GET GOOD = 4200 

Nov arcs, SB008T *READ RHCS1 FOR COMPARISON | 
it See ap FROM | 

BEQ 67$ :BRANCH IF GOOD 

ERROR 125 
sAFTER SETTING “CLR” BIT #5 
:IN RHCS2 TO INIT THE RH 
*A TEN WORD READ REVERSE FROM AN 
-ODD WORD BOUNDARY WAS DONE 


; THEN 
;RHCS1 SHOULD HAVE RDY!DVA 
;=4200 


MRA INDEC-11-DERHAC-A 


DERHAC 
12331 


Pll 


036166 


036166 
036174 


036222 
036222 


036230 
036236 


036244 
036246 


036250 


T64 


012737 
053737 


329939 


012737 
017737 
023737 


001401 
104131 


MACY11 27(732) 
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000100 
005010 


145662 
001124 


000000 


001124 
001124 


001126 
001126 


001124 


145626 001126 
001124 O011e6 


aa) 
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sBUT CONTAINED WHAT IS 
GIVEN IN BAD RHCS1 


67$: 
“CHECK THAT RHCS2 HAS IR 
MOV #IR, $GDDAT -GET GOOD = 100 
BIS UNIT SGDDAT INCLUDE UNIT NUMBER 
MOV gaucse, ,$BDDAT-  :READ RHCS2 FOR COMPARISON 
CMP $GDDAT,$BDDAT  :COMPARE EXP 
‘DATA WITH DATA READ FROM 
3 RCS 
BEQ 69S ‘BRANCH IF GOOD 
ERROR 126 Can ‘i on 
Th Bic8e TENG TF Sue ay 
WORD READ REVERSE FROM AN 
oop bor BOUNDARY WAS DONE 
saree? SHOULD HAVE IR 
‘TOGETHER WITH UNIT NUMBER 
;BUT CONTAINED WHAT IS 
nae -GIVEN IN BAD RHCS2 
, “CHECK THAT RHWC HAS O 
MOV #0, SGDDAT -GET GOOD = 0 
MOV DRHWC,SBDDAT § ;READ RHWC FOR COMPARISON 
CMP $GDDAT,SBDDAT :COMPARE EXPECT 
:DATA WITH DATA READ FROM 
BEQ 71$ -BRANCH IF GOOD 
suman 5p TTING “CLR” BIT 4S 
Ne itr: 10. IN “01M F5 THe 
AD REVERSE FROM AN 
BOUNDARY WAS DONE 
OEE one wet 6 
*BUT CONTAINED WHAT IS 
-GIVEN IN BAD RHWC 


71$: 


fe amg gg I 2 ge 
T 65 TEST DBL (RHCS3 BIT #10) TEST V 


CLEAR T SUBSY TEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
SET UP FOR A ELEVEN WORD READ REVERSE FROM AN EVEN WORD _ BOUNDARY 
00 A ELEVEN WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 
THIS SHO SET RHCS3 BIT #10 DBL 

CHECK RHCS1 RHCS2. RHBA, RHBAE, RHWC 

IF MAG. TAPE NOT USED. THIS TEST IS NOT DONE 


we OK OK OK i Oc ic m=: 
i 


— - |. a — it _—- ——. « . . — - 
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DERHAC.P11 T6S 





036364 
036366 





036420 
036422 


000004 
Ole? 
Ole73 


004737 
022737 
001103 


012701 
012702 


Ts 
en 
012777 
012777 
004077 
004200 
012737 
017737 
023737 


001401 
104124 


rf 
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ee Re ee ee ree 
001000 HSTACK, SP -RESET STACK 
000065 OO046S6 MOV #65, J8#TSTNM -SAVE TEST NUMBER 
040322 JSR PC, J#CLDISK -GIVE RH INITIALIZE 
-SETUP UNIT NUBER 
‘CLEAR RHWC AND FUNCTION BITS IN RHCS! 
041710 O04640 CMP #CMNDTM,COMND ;IS TU THERE 
BNE TST6& ;BRANCH IF TU NOT THERE 
;SET UP FOR A ELEVEN WORD READ REVERSE FROM AN EVEN WORD BOUNDARY 
000003 MOV 1 NT OF T 
003000 MOV #BFEVEN, Re “START THREE WORD BUFFER 
*FROM AN EVEN WORD BOUNDARY 
052525 1S: MOV w52525,(R2)+  ;MOVE THREE S2S25 INTO BUFFER 
DEC R CON 
BNE 1 ‘BRANCH IF THREE NOT DONE 
003000 145536 MOV WBFEVEN,@RHBA ;SET BUS ADDRESS TO START 
-FROM AN EVEN WORD BOUNDARY 
177765 145S26 MOV #-11.,QRHWC ;WORD COUNT ELEVEN 
146300 JSR RO, JCOMND ;GO TO DO COMMAND 
REVRED *REVERSE READ 
“CHECK THAT RHCS3 HAS a 
002000 001124 hov #DBL , SGDDAT -GET GOOD = 2000 
145556 001126 MOV JRHCS3,$BDDAT ;READ RHCS3 FOR COMPARISON 
001124 O01126 CMP SGDDAT,$BDDAT :COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
BEQ 655 ‘BRANCH IF GOOD 
ERROR 124 
sO TER | SETTING. Toure BIT 4S 
i: Wd One VERSE FROM AN 
ABT uoRO ERD S DONE 
iRHCS SHOULD HAVE DBL 
BUT CONTAINED WHAT IS 
<i -GIVEN IN BAD RHCS3 
145462 “o) eae 876, JRHCS1 “CLEAR FUNCTION BITS 
“CHECK THAT RHCS1 HAS RDY!DVA 
001124 HOV BRDY!DVA,SGDDAT ;GET *5000 = 4200 
901126 MOV JRHCS1,$BDDAT  ;READ RHCS1 FOR COMPARISON 
001126 CMP $GDDAT, SBODAT “COMPARE EXPECTED 


DATA WITH DATA READ FROM 


sRHCS 
BEQ 67$ ;BRANCH IF GOOD 
ERROR 125 


- ——_— —oO— CK SS ee ee tte 
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0 


1 





~“ 
~~ 


ee ereee ETT CELLET 
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T6S TEST OBL (RHCS3 BIT #10) TEST V 


BIS init $GDDAT 
MOV JRHCS2, SBDDAT 
CMP SGDDAT, SBDDAT 


BEQ 695 
ERROR 126 


69S: 
“CHECK THAT RHWC HAS O 
po0000 001124 MOV #0, SGDDAT 
145370 001126 MOV JRHWC , SBDDAT 
001124 O01126 CMP SGDDAT , SBDDAT 
BEQSsiésé7718 
SEO 131 
S0& 71S: 


- CHECK THAT RHCS2 HAS IR 
MOV R, SGDDA 


b OF TER es ING. TP THE A BIT #5 


ae WORD READ REVERSE FROM AN 
WORD BOUNDARY WAS DONE 


S1 SHOULD HAVE RDY!DVA 
sate CONTAINED WHAT IS 
GIVEN IN BAD RHCS1 
-GET GOOD = 100 
‘INCLUDE UNIT NUMBER 
sREAD RHCS2 FOR COMPARISON 
“COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
‘BRANCH IF GOOD 
sAFTER SETTING ToL” BIT #5 


-IN RHCSe TO INIT 
ven N WORD READ REVERSE FROM AN 
BOUNDARY WAS CONE 








EVEN 
sRACS2 SHOULD HAVE IR 
THER WITH UNIT NUMBER 


sc CONTAINED WHA 
;GIVEN IN BAD pcs 


GET GOOD = 0 


; READ RHC FOR COMPARISON 
‘DATA WITH DATA READ FROM 


sBRANCH IF GOOD 









sAFTER SETTING “CLR” oY 8S 
:IN we TO INIT THE 


BO DAR REVERSE FROM AN 


« LSFLASAERSASREAEESRSESR ESE ASSSAAAELARARSLAERALERASLELAELLSAEIL ES 


 RTEST ney 


TEST DBL (RHCS3 BIT #10) TEST W 


- it CLEAR THE SUBSYSTEM BY A CONTROLLER CLEAR (RHCSe BIT #5) 


er re re rr et ee 





MAINCEC-11-DERHAC-A 
DER. AC.PLl T66 


1S: 








6S$: 


M02 
232 










jSrUPRar ne 


MNOT USED THIS Test 1S NOT DONE 





RELLLARLASRELES 
















sRESET STACK 
;SAVE TEST NUMBER 


;GIVE RH INITIALIZE 
3S Te UNIT NUBER 








aren 1s Wat NEN 


L dquceeehoa 





SSTART THREE MORD BUFFER 
me gcse OD MiP Bre 
ee rd 









MOV #11. ,QRHWC ; WORD CONT ELEVEN 
reac RET 


GET GOOD = 0 





REVRED 


sCHECK THAT RHCS3 HAS 0 
#0, SGDDAT 





hov 


























MOV SRHCS3,SBDDAT ;READ RHCS3 FOR COMPARISON 
CMP SGDDAT;SBDDAT  ;COMPARE EXPECTED 
“DATA WITH DATA READ FROM 
BEQ 65S : IF GOOD 
ERROR 124 
NI 
io ea 
WORD BOUNDARY WAS DONE 
: SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
:GIVEN IN BAD RHCS3 
BIC 876, -CLEAR FUNCTION BITS 





JRHCS1 
-CHECK THAT. RHCS1 HAS RDY' OVA 
ov BROY!DVA,SGDDAT ;GET GOOD = 4200 





UP FOR A ELEVEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
BOUNDARY 


eee TO FUNCTION BITS IN RHCS1 


FROM AN ODD WORD BOUNDARY 


—_——— = 


NOe 
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UVERHAC.P11 T66 TEST DBL (RHCS3 BIT #10) TEST WW 


O36642 017737 i4Sele OOlle6 MOV JRHCS1 , SBODAT 
036650 023737 001124 O011e6 CMP SGDDAT , SBDDAT 









;READ RHCS1_ FOR COMPARISON 
Q FROM 
_ IF GOOD 

Teint Me RH 
AE CPE 7" * 
pen SHOULD HAVE RDY!DVA 


ONTAINED WHAT IS 
: GIVEN IN BAD RHCS1 













036656 001401 BEQ 67$ 
6C 036660 104125 ERROR 125 


67$: 


Bera RCAOR RSYNC MARYS EMSRS ORCA GBELAt Race 
pl77a7 |NEIge oli 6 Hoy gE, BORAT Ea perenne 


AD FROM 
104126 Freon 126 BREN IF ooo 


AFTER SETTING “CLR” i aS 
IN Wwe TO INIT THE RH 
ob site fe nee ne Bone FROM AN 





SHOULD HAVE IR 


tin THER WITH UNIT NUMBER 
;BUT CONTAINED WHAT “IS 
; GIVEN IN BAD RHCS2 





O3S: CHECK THAT RHWC HAS O 
012737 oo0000 001124 OV #0, SGDDAT ;GET 6000 = 0 
paeoa> Adrisa Bolise eo _ 
;DATA WITH DATA READ FROM 
001401 BE 71$ : BRANCH IF GOOD 
104131 ERROR 131 


sAFTER SETTING “CLR” BIT #5 


fie Bhan a 









VERSE FROM AN 


cONTAYRED una? 1s 
; GIVEN IN BAD RHC 





7158: 


re ee te es © ——-— a ee oe ee —_——_— —e «<< = -—--« _—_—  -— - 


- — == ee Oe —_———— Sere —- —— awe — -—*7*- ~~ * 
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p Tb TEST DBL (RHCS3 BIT #10) TEST W 
Sete 
isbls : REX SEREELRE RESET EERE SERRE SER LEER SEER ERE REELS CAE EREE EERE R ERE LSPS SE 
12614 -¥TEST 67 TEST DBL (RHCS3 BIT #10) TEST x 
12616 & CLEAR TH THE E SUBSYSTEM BY A CONTROLLER CLEAR (RHCS2 BIT #5) 
12617 : ORD READ REVERSE FROM AN ODD WORD BOUNDARY 
12618 : WITH BAT IN RHCSe BIT #3 SET 
12619 : b0 , TEN WORD D READ "FEVER FROM AN ODD WORD BOUNDARY 
le620 : THIS SHOULD BIT #10 DBL 
lebel - CHECK 
12622 : CHECK RHCS1,RHCS2, RHBA, RHBAE,R 
1eoe3 : IF MAG. TAPE NOT USED. THIS test is NOT DONE 
lebes a MRR ee ee ee 
12626 036744 oo0004 téT57: SCOPE 
12627 036746 012706 001000 ty #STACK, SP :RESET STACK 
12628 0367S2 012737 O0OD&7 OOY4ESS MOV #67, J8TSTNM -SAVE TEST NUMBER 
12630 036760 004737 040222 JSR PC, J¥CLDISK -GIVE RH INITIALIZE 
12631 “SETUP UNIT NUBER 
leb32 *CLEAR RHWC AND FUNCTION BITS IN RHCS! 
12633 036764 022737 041710 OO46YO CMP #CMNDTM,COMND :IS TU THERE 
12636 036772 001106 BNE TST70 + =;BRANCH IF TU NOT THERE 
12637 
12638 ;SET UP FOR A TEN WORD READ REVERSE FROM AN ODD WORD BOUNDARY 
12639 036774 012701 o00003 HOV #3,R1 “COUNT OF THREE 
12640 037000 012702 003002 MOV st 00D, Re “START THREE WORD BUFFER 
12641 ; FROM M AN ODD WORD BOUNDARY 
leb42 037004 012722 oS2525 1S: MOV wS2525,(R2)+  :MOVE THREE S2S2S INTO BUFFER 
12643 037010 005301 DEC RI “C 
12644 037012 001374 BNE 1$ ‘BRANCH IF THREE NOT DONE 
12645 037014 012777 oo3002 14s04e MOV #BFODD,3RHBA = ;SET BUS ADDRESS TO START 
12646 ROM AN ODD WORD BOUNDARY 
12647 037022 012777 177766 145032 MOV #-10.,QRHWC ;WORD colNT T 
Leb48 037030 052777 OO0010 145032 BIS #BAI,dRHCS2 ;SET BAI IN RHCS2 
12650 037036 004077 145576 JSR RO, JCOMND :GO TO DO COMMAND 
12651 037042 004200 REVRED -REVERSE READ 
12653 “CHECK THAT RHCS3 HAS O 
Leb54 037044 012737 OOO0000 001124 MOV #0, SGDDAT :GET GOOD = 0 
12656 037052 017737 145054 001126 MOV JRHCS3,$BDDAT  ;READ RHCS3 FOR COMPARISON 
12657 037060 023737 OO1124 901126 CMP $GDDAT,SBDDAT  ;COMPARE EXPECTED 
12658 ‘DATA WITH DATA READ FROM 
12659 *RHCS3 
12660 037066 O01401 BEQ 65$ “BRANCH IF GOOD 
le661 037070 104124 ERROR 124 
lebbe -AFTER SETTING “CLR” BIT #5 
12663 :IN RHCS2 TO INIT THE RH 
12664 -A TEN WORD READ REVERSE FROM AN 
12665 -ODD WORD BOUNDARY WAS DONE 


12666 ;WITH BAI IN RHCS2 SET 


CO er ee eee me —"- 22 & « .** - 


wer. voxX“————— iO 


tl Ya ame 


37008 
037100 
037106 
037114 


037122 
037124 


037126 


037126 
037134 


037142 
037150 


037156 


037160 


037162 
037162 
037170 
037176 


037204 


T67 


042777 


012737 
017737 
023737 


001401 
104125 


012737 
053737 


017737 
023737 


001401 
104126 


012737 


017737 
023737 


001401 


meth 


TEST 


000076 
004200 


144746 
001124 


000110 
005010 


144722 


001124 © 


000000 


144666 
601124 


27(732) 
L (RHCS3 BIT #10) TEST xX 


144760 
001124 


001126 
001126 


001124 


001126 
001126 
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65S: 


675: 


69S: 


BIC 
MOV 


MOV 
CMP 


BEQ 
ERROR 


#76, dRHCS1 
“CHECK THAT RHCS1 HAS RDY!DVA 
#RDY!DVA,SGDDAT ;GET GOOD = 4200 


JRHCS1 , SBDDAT 
SGDDAT , SBDDAT 


67$ 
125 


OV 

BIS 

MOV JRHCS 
CMP $GDDA 
BEQ 69% 
ERROR 126 


MOV 


MOV 
CMP 


BEG 


IRHWC, SBDDAT 
SGDDAT, SBDDAT 


71$ 


; CHECK ner intBaL, $c Heat. :eet G00 


+ ScbDAT 


' SEDDAT 


sCHECK THAT RHWC HAS 0 
#0, SGDDAT 


THEN 
+ RHCS3 SHOULD HAVE 0 
‘BUT CONTAINED WHAT IS 
GIVEN IN BAD RHCS3 


;CLEAR FUNCTION BITS 


sREAD RHCS1 FOR COMPARISON 
: COMPARE EXPECTED 
; DAT A WITH DATA READ FROM 


HCS 
‘ BRANCH IF GOOD 


sAFTER SETTING “CLR” BIT #S 
IN RHCSe TO INIT THE RH 

‘A TEN WORD READ REVERSE FROM AN 
-ODD WORD BOUNDARY WAS DONE 

; WITH BAI IN RHCSe SET 


; THEN 
*RHCS1 SHOULD HAVE RDY!DVA 


=420 
ate CONTAINED WHAT IS 
‘:GIVEN IN BAD RHCS! 


= 110 
i FNCLUDE UNIT NUMBER 
i OSHP ape Pees FOR on 
:DATA WITH DATA READ FROM 
s RHCS2 
:BRANCH IF GOOD 
iON RH SETTING “CLR” BIT #5 
Neos TO_INIT THE RH 
WORD READ REVERSE FROM AN 
iB NORD BOUNDARY WAS DONE 
{WIT : BAI IN RHCSe SET 
RHC 2 SHOULD HAVE IR!BAI 
: TOGETHER WITH UNIT NUMBER 


;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHCS2 


;GET GOOD = 0 


;READ RHWC FOR COMPARISON 
;COMPARE EXPECTED 
:DATA WITH DATA READ FROM 


» RHWC 
:BRANCH IF GOOD 


wht Pit hae 
DERHAC.P11 


hs, 


037206 


037219 


T6? 
104131 


000410 


013746 


013746 
104405 
104401 
000402 


104401 
000402 


MACY11 27(732) 
TEST OBL (RHCS3 BIT #10) TEST xX 


000001 OOlele 
177776 


7232 


005510 
005506 


005436 
037312 


004060 
037346 


001112 
037424 


037436 
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713: 


ERROR 


131 


; AFTER a5 TN fH mY #5 
sIN RHCSe TO I 

:A TEN WORD READ "REVERSE FROM AN 
: ODD OD BOUNDARY WAS DONE 


WORD BOUN 
sWITH BAI IN RHCSe SET 
:R Hu SHOULD HAVE 0 


;BUT CONTAINED WHAT IS 
;GIVEN IN BAD RHWC 


ae ae A toe OF det Me ee 


-65$: 


bag: 


-67$: 


ids: 


bas: 


-71$: 


+hg: 


-37 38: 


: RTEST ? 


;695: 


JUMPS 
PA 


TYPE 
BR 
»ASCIZ 


T9 
ASS 


#1,STIMES 
PS’ 
65$ 


ug 
(15><12>/END OF tEST FOR RH 


WORUNT, - (SP) 

TSTUNT Re 

P)+ Re 
FRHNM(R2) , -(SP) 
67 

b6$ 

/ 

RHCS1,-(SP) 
69$ 


0 END OF 0 

THIS [S THE END OF TEST FOR ONE RH 
IF THERE ARE MORE RH 
TEST 2 FOR NEXT RH T 

S REACHED ONLY AFTER ALL RH ARE COMPLETE 
 sssenetTeenttiabianntantesaavaneraoentbeneestiasorasaaaasee 


jute 


THEN THE PROGRAM 
EST 


;D0 1 TATE pa to 


t RETNS S T0 0 
;s TYPE ye STRING 
GET OV 


y ¥ ASCIZ 


GET WORKING RH NUMBER LEFT 
: GET TOTAL NO OF RH FOUND 
:NO OF RH TE 

: INDEX FOR RH TESTED 

TYPE OF RH NO. 

;; TYPE ASCIZ STRING 
*:GET OVER THE ASCIZ 


BASE / 


; TYPE BASE ADDRESS 
3; TYPE ASCIZ STRING 


8$ -GET OVER THE ASCIZ 
(15><12>/TOTAL NO’OF ERRORS ON THIS PASS/ 


SERTTL,-(SP?} 
71$ 
O$ 
(15><le>/ 7 
733% 


723 
(1$><leo7 # 


TYPE TOTAL NO OF ERRORS 
;; TYPE ASCIZ STRING 
:=GET OVER THE ASCIZ 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


-_-—_——— _—-- 


RF ee ee te EE ee ~~ -=+-o-. —s——<—e— oe 


EQS 


MAINDEC-11-DERHAC-A MACY11 27(732) 09-SEP-76 07:55 PAGE e237 
DERHAC.P11 T7G END OF ONE RH 


l : 

12780 037442 005037 O0lile CLR SERTT - CLEAR TT NO OF ERR erE 
ie781 037446 005337 005510 DEC WORUN ;DECREASE NO. OF RH TESTED 
le78e O0374Se 001402 SEQ 1$ 

12783 037454 000137 01063e JMP TSTe 

1e784 937460 013737 OOSS06 OO0SS510 1S: MOV TSTUNT , WORUNT *MAKE WORKING RH SAME 
le7gs °&—S TOTAL RH 


MAINDEC-11-DERHAC-A 


DERHAC. 


Pll 


END 2 


S 
050040 
000043 


MACY11 27(732) 
PASS ROUTINE 


037573 
001100 


037570 
000042 


001100 


377 000 
042412 O%ell6 
CS1501 Oe0le3 


037610 
037510 104401 037616 


037614 


000433 


FOS 
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.SBTTL END OF PASS ROUTINE 


os SESE SESE SESE SE EE AEE AE SEE SE AE SEE SESE SE SE EE AEE HE HE AE HEHEHE EERE EERE 
: RINCRENENT THE a NUMBER ($PASS) 


» #TYPE 


"END PASS # 


XXX" ew XXXXX IS A DECIMAL NUMBER) 


:#IF THERES A MONITOR GO T 
-#IF THERE ISN'T JUMP TO TSTe 


SEOP: 
SCOPE 
CLR STSTNM -ZERO THE TEST NUMBER 
CLR STIMES ;;2ERO_THE NUMBER OF ITERATIONS 
INC SPASS :: INCREMENT THE PASS NUMBER 
BIC #100000,$PASS ;;DON’T ALLOW A NEG. NUMBER 
DEC (PC)+ : LOOP? 
SEOPCT: .WORD 
BGT SDOAGN >: YES 
MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE SENDMG TYPE “END PASS # 
MOV $PASS, -(SP) -:SAVE SPASS FOR TYPEOUT 
TYPOS ::GO TYPE--DECIMAL ASCII WITH SIGN 
TYPE SENULL :: TYPE A NULL CHARACTER 
SGETH2: MOV date ::GET MONITOR ADDRESS 
BEQ Oat ::BRANCH IF NO MONITOR 
RESET Bs, THE WORL 
SENDAD: ISR PC, (RO) $360 TO MONT TOR 
NOP 
NOP sTEOR 
SDOAGN 
JMP a(PC)+ ; sRETURN 
TNAD: .WORD - . 
SENULL: . BYTE NULL CHARACTER STRING 
SENDMG: .ASCIZ ches 18) eno pass’ s 
.SBTTL SUBROUTINES 


cs RRRRRAA EAR A AEE EERE EERE RARER EEE L EEE ER EER A ARAL ELAR ER TERE 


ROUTINE HANDLES TIME OUT TRAPS THROUGH LOC. 


THIS 4 
errertvrrmerrsrermrrrrrriertret rire tritetrirtttititt rerio conn 


vena 


-;655: 


TYPE 
.ASCIZ 


65S ;;TYPE ASCIZ STRING 
45 ‘GET OVER THE ASCIZ 
(15> <12>/TIMEOLT  KRURED THROUGH LOCATION 4 FROM PROGRAM PC. 


MAINDEC-11-DERHAC-# 
DERHAC.P11 


040310 
040310 
040314 


SUBROU 


162716 


104402 
000137 


104401 
000417 


104401 
000413 


162716 


000407 


104402 


104401 


017746 
104402 
000137 


MACY11 27(732) 
ITINES 


o0000e 
037720 


043i20 


037754 


040020 


000002 
040062 


040110 


145340 
040166 


145260 
040244 


145204 
043120 


~ 
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64S: 


i 
baRIT 


se sag ml A ERNBONR-R Em CRORE NNER PTI: 


;s TYPE ASCIZ STRING 
4§ T OVER THE ASCIZ 
(15><12>/PARITY +hOP THRU VECTOR 114/ 


3; TYPE ASCIZ STRING 
“GET OVER ne ASCIZ 


-655: 


bag: 


-67§: 


beg: 


-695: 


bbs: 


-71$: 


sig: 


-7 39: 


bbe: 


big: 


-755: 


SUB 
TYPOC 
TYPE 
BR 
.ASCIZ 


TYPOC 
JMP 


' TYPE 
BR 
.ASCIZ 
TYPE 
BR 
.ASCIZ 
SUB 
TYPOC 
TYPE 
BR 
~ASCIZ 


TYPE 
PASCIZ 
MOV 
TYPOC 
TYPE 
BR 
.ASCIZ 


we, (SP) 


67$ 


6$ 
(15>< 12> /PSW WAS 


$SCOPE 


: TYPE PC 


;;TYPE ASCIZ STRING 
j3GET OVER THE ASCIZ 


*RETURN TO TEST 


TINE HANDLES PARITY ERRORS 


65$ 


67$ 


66S 
(15> < 12> /FROM PROGRAM PC 


we, (SP) 


69$ 


; TYPE PC 


; TYPE ASCI 


:3GET OVER THE ASCIZ 


¢15><12>/PSW WAS 


715 


STRING 


Ppt ASCIZ STRING 


VER THE ASCIZ 


70$ 
(15> (1>/HIGH ERROR ADDRESS REGISTER 


JHERADD , -( SP) 


@LERADD, -( SP) 


7S$ 


Pug GET OVER THE ASCIZ 
(15> <12>/MEMORY SYSTEM ERROR REGISTER 


$3 Ue ASCIZ STRING 


» aes ERROA ADDRESS REGISTER. 


sTYPE LOW ERROR 


as ASCIZ STRING 


SMEMERR, - (SP) 


$SCOPE 


/ 


: TYPE HIGH ERROR 


/ 


psunenaponsnesonsnasnsenseeeT ae 
H 


f 


03 
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DERHAC.P11 SUBROUT! 
128 
12899 
12900 
1290! 
fee 
12904 O40322 012777 OOCO4O 143540 CLDISK: MOV #CLR, IRHCS2 -CLEAR ALL REG. 
12905 040330 013777 005010 143532 MOV @8UNIT,@RHCS2 ;REINSTATE UNIT NO. . 
12906 040336 042777 OCO077 143514 BIC #77, JRHCS1 “CLEAR FUNCTION BITS 
12907 O40344 005077 143512 CLR JRHWC :CLEAR RHC 
12908 o403S¢ 900207 RTS PC 


I03 
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DERHAC.P11 SUBROUTINES 

12909 

12910 

re 

12913 -THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 

12914 “AND CHECKS MEDIUM ON LINE (MOL), DEVICE PRESENT (DPR), DEVICE READY <DRY) IN RHDS! 

12915 o403S2 oo0000 PCISR: O -PC OF JSR 

at 

ie 

12920 040354 011637 040352 CHECK: MOV (SP), daPCISR -SAVE PC OF JSR+4 

1 940360 62737 ooo004 o403S2 SUB #4. aePCISR -GET PC_OF JSR 

1 11346 MOV JR3, -(SP) -GET RHDS1 

12923 040370 052716 000100 BIS #VV. (SP) ‘DONT CHECK VV BIT 

12924 040374 OD0406 BR CHECKC -GOTO COMMON VOHECK ROUTINE 

1292S 040376 011637 o403S2 CHECKT: MOV (SP), J#PCISR -SAVE PC OF JSR+4 

12926 O40402 162737 O0o004 o40352 SUB #4. JRPCISR -GET PC OF JSR 

12927 040410 01 1346 abt HOV aR, ~ P) sGET RHOS1 % DO VV CHECK AT 33 

1 Baba ts Baad ie 173577 " BIC teas (SP) , -CLEAR UNWANTED BITS 

12930 040420 022726 oo4200 CMP wDVA!RDY, (SP)+ *RHCS1 SHOULD HAVE DEVICE AVAILABLE 

l 040424 001403 BEQ 3$ 

12933 O4ONeb 011137 001122 NOV RI, D¥SBDADR i BAD AD DATA REGISTER (RHCS1) 
eet or NcHT At THe “START 


-ALL OTHER BITS SHOUL 


ee a an ae eZ) v corms on He sr 


13540 aren, a1 3a? 001122 = Ra. a#SBDADR RANCH IF Ih RE TER (RHDS1) 
tsad? Bupues = Téaaes ERROR a oige o Cont atts BTNER 
12942 THAN “a DRY Y SET 
12943 | PALL OTHER BITS SHOULD BE O 
12944 o4¥O4s4 900207 75: RTS PC “RETURN TO TEST NO. 


PR ANGE CS 11 -DERHAL 2 


ODERHAC .P11 


040564 
040572 


040574 


040576 
040602 
D4OE0E 


00S 

001372 
017737 
104135 
000423 
013703 


012700 
023777 


MACY11 27(732) 
SUBROUTINES 


enn 


00605 


004646 


O4O4S6 
004672 


O4O4SE 
004672 
144100 
040456 


000020 
OC467e 


004665 


144132 


LY41le 


001126 


144054 
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ng Yaitne 


oO 
’ 
o 
’ 


¥ 


AIT al WHEN NO P-CLOCK IS AVAILABLE 
"Do 


sPOINTER TO REGISTER ADDRESS 
WAITED FOR 


B : BI 
-R3-IS A TEMPORARY COUNTER 
TIMCNT: 177777 


WAIT.T: 


1$: 


es: 


4$: 
Ss: 


;COUNT FOR WAIT LOOP 


ae a RO ON STACK 


RO ¢AQDRESS OF NEXT LOCATION 
Fe 8 HAT BC IN a TPC 
#2; JUWAITP 
a(RO) +, JUWATTR at oN REGISTER BDDRESS 
(RO) +98 RESTORE RETURN ON STACK 


sTHIS HAS THE TWO COUNT DOWNS FROM 177777 


FOR 
Mov 
MOV 
BIT 


-FOR WAITING FOR A BIT TO SET 
WATO 


Eee FOR 1 
4§ BRANCH IF NALTING FOR 0 
a#TINCNT ,R3 pa HAS TEMPORARY COUNT 
QHWALTET, » OWATTRE S ci ee BIT THERE 


R3 iotg Ff REQUIRED BIT NOT THERE 


Aer MCNT,R3 sSECOND COUNT DOWN FROM 177777 
QQuAITBT, QWALTRE. ida. REGU IRED BIT THERE 
R3 sCOUNT IF REQUIRED BIT NOOT THERE 


SHaTTRE, DeSBDDAT ;REGISTER CONTENTS FOR TYPEOUT 
-WAS WAITING FOR A BIT TO SET 


;BIT IN QUESTION IS IN “BIT WAITED” 
REGISTER I IN QUESTION IS IN “REG ADDR” 


3$ ; BRANCH 


sTHIS HAS THE TWO COUNT DOWNS FROM 177777 
WAITING AL A BIT TO RESET 
oii IMCNT,R3 sR3 HAS TEMPORARY cae 


HAS TEMPORARY COUNT 


0.R0 :RO 
SSHATTBT, QWAITRE’ ;IS REQUIRED BIT RESET” 


? 
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DERHAC.P11 SUBROUTINES 


ng ee EC 3 nT HP REDUIRED BIT HASN'T RESET YET 
T3g04 MOBe8 BATS BRE OC‘ eo AGAIN 

1300S O40622 005300 DEC RO ‘DECREMENT RO COUNT 

13008 040624 001370 BNE SS ‘START OVER IF COU NT_ISN'T ZERO YET 
13007 O40626 017737 144036 001126 MOV DWAITRE, J¥SBDDAT’ j REGISTER SCONTENTS, FOR Ty YPEOUT 

13008 040634 104136 ERROR 136 3 RAITING IT 19 het 
ets BIL “ih aus ion sHiol 15 iT ie REG. AOR” 
13011 O¥0636 017737 144026 001126 “ MOV DWAITRE,J#SBDDAT :REGISTER CONTENTS FOR TYPEOU 

13013 QuObH4 12603 MOV (SP)+,R3 ;;POP STACK INTO R3 

13014 O40646 O12600 MOY (SP)+'RO POP STACK INTO RO 

1301S O406S50 oocode RTI :RETURN TO MAIN TEST 


MAINDEC-11-DERHAC-A 
DERHAC 


“PL! 

13016 
13017 
13018 
13019 
130 
13021 
13022 
13023 
13024 
13025 
13026 
13027 
13028 
13923 
eicch 
13032 
13033 
13034 
13035 
13036 
13037 
13038 o408Se2 
13039 O40654 
13040 40654 
13041 O40660 
13042 O4O666 
13043 040672 
13045 040736 
13046 0407 
13047 o4074 
13049 bu07S0 
tSpe) OM 

ie 
t3pe> Byioos 
13053 041006 
13054 041010 
13055 041014 
13056 041020 
13057 
13058 041102 
13059 041102 
13060 041106 
13061 # 
t3pe3 putts 
13064 041174 
13065 
13066 041242 
t3ob8 O4i5u4 
13069 bu tSe 
13070 041254 
13071 041260 


MACY11 27(732) 


SUBROUTINES 


000000 
05037 


104401 
000430 


104401 
000422 


ieee 
177777 G45100 
040674 


004656 
040752 


001110 


001223 
041022 


041110 


041176 


000002 


001106 
041262 
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» HER Q DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 

‘On rt PING CAN EEE BR IF THE LOOP ON ERROR SWITCH IS SET, THE 

PROGRAM GOES BACK - USUALLY BACK TO THE BEGINNING OF THE TEST. 

;WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
TO CAN BE CHANGED. 


OGRAM G 
tT TRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: 
= IT Must BE ital he Tes! ee CONSIDERATION 


‘1. 
se. LOOP ON ERROR 
5° THe 5 THE TEST UNDER CONSIDERATION 







MUST 
3. T WITHIN 
ie THE ERROR RROR DOES. S nor OccuR WITHIN THE TEST UNDER CONSIDERATION 


ASR WCB lO DP IR 
COMES TO TO THE END END OF THE TEST UNDER CONSIDERATION. 


{AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
;NORMAL OPERATION WILL CONTINUE. 


TESTAD: 0 -FIRST ADDRESS OF TEST 
Hip PS sMAKE PROCESSOR STATUS ZERO 
MOV #-1,08PRITEM  :CLEAR PREVIOUS ITEM NUMBER 

TYPE 65 ;; TYPE ASCIZ STRIN 


NG 
R “GET OVER THE ASCIZ 
is PASCIZ e18> ¢12>/THE pRotRAN WAS IN TEST NUMBER / 


QNTSTNM,-(SP) 5 GET READY TO TYPE TEST 
67S ii TYPE ASCIZ STRING 

BR 66S ;GET OVER THE ASCIZ 
-.67$: -ASCIZ (15)<12>/THE LOOP’ BACK PC WAS / 


QHSLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 


T , SCRLF 
TYPE 69S ;;TYPE ASCIZ STRING 
BR 69g VER THE ASCIZ 

j i698: "ASCIZ <15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST- 
TYPE 715 ;;TYPE ASCIZ STRING 
BR 70$ T OV asciz 

jizis: -ASCIZ <15><12>/TYPE THE FIRST PC OF THE TEST TO BE LOOPED CN/ 
TYPE i; TYPE ASCIZ STRING 
BR res GET OVER THE ASCI 7 

i238: "ASCIZ <15><12>/ FOLLOWED BY A CARRIAGE RETURN /<15><12> 

' OCT 
ADD -GET LPADR 
MOV (SB, 3¥SLPADR 
75$ ;;TYPE ASCIZ STRING 


ug ::GET OVER THE ASCIZ 


——_— ———- fe <- ©& 


ECL rr tr er eee -—-* 


—_— ~~ — ee 


: 
: 





BRM bi i SER ER EAR 


Pome hae Oo fo Bae bs b— f+ Ps P-— B-< P- B—2 bs fs Gb o> Pm Pes Oo PF De 








“wo i 


to hb 


pos oo 


Freee Fre 


-DERHAC-A 
SUBROUTINES 


bw be be Ree Be a 


See SEE 


104401 
000440 


ry 


eer 


MACY11 27(732) 
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big? 


bis: 


PUTREG: 


10S: 


we] 
+ 
wm 


~ASCIZ ¢(15><12>/TYPE THE PC WHERE YOU WANT/ 


TYPE 4778 >: TYPE ASCIZ STRING 
BR 76S sige OVER THE A 
“ASCIZ <15><12>7 THE PRO 0 LOOP pre 0 FOLLOWED BY A CARRIAGE RETURN /<15 


RDOCT 
MOV (SP)+ ety) »>GET LPERR 
NOV J#SLPADR, - 








TNR SAVES THE Tite one OF ALL HARDWARE REGISTERS 
MEMORY 7 Corbene A gi “yic™ none wie 
THIS IS DONE S H SAVED LOCATIONS 


NOT 7 THE REGISTERS THEMSELVES. DATA onfhls dt DIFFRENT 





Pus a oh Srack 


“RHuC+2/2, Hee & EL ks re: 


;;POP STACK INTO Re 
SBOP Bop erark NTO Rl 
TACK INTO RO 





Sooaneceeeee 





——— Fen - _-*-* 


= rr er rrr rrr ttt ee ew 
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13110 -SBTTL RS DATA TRANSFER SUBROUTINE 

ae ‘S ue tg-thece ON c¥t tnbe a mietateae 
sits i IT ASS THE RH REGISTERS ARE APPROPRIATELY 
i? i sen “ABE SAE EON ee HRT UTNE RonPLETE 
13113 : i THE CALL IS BY A JSR RO,SCOMND COMAND 
ie 041502 012037 oo4é4e CMNDRS: MOV (RO)+,COMAND § ;GET CCMMAND 
131 *CHECK THAT RHDS1 HAS DRY!OPR!MOL 
13124 041506 012737 010600 001124 MOV #DRY! DPR! MOL , SGDDAT “GET GOOD = 10300 
paiss Qutess Qacea? Adtisg BBLISE MOY RHO RY SERRAT  EREARARECBkeECTED 
13128 sDATA WITH DATA READ FROM 
HIS puss ona, an. jBRRNCH TF 00D 
13132 *BEFORE ANY COMMAND IS GIVEN 
13133 R SHOULD HAVE DRY! DPR! MOL 

35 : ‘BUT CONTAINED WHAT IS 
13136 . ;GIVEN IN BAD RHDS1 
: 041534 65S: 7 
1313 041534 005077 142326 CLR JRHDA s TRANSFER ON CYLINDER 9 
13140 ; TRANSFER ON SECTOR O 
13143 1540 017777 143076 142312 MOV JCOMAND, IRHCS1 i Oe COMMAND 
1314 1546 005737 Oo4644 TST NOGO :1S GO 10. BE GIVEN 
13144 041552 001006 BNE 1$ BRANCH 
13145 041554 052777 OO0001 142276 BIS #GO, JRHCS1 —«$SET KG 
tata “WAIT FOR RDY BIT IN RHCS1 REGISTER TO SET 
13148 O41S562 104411 WAT hey TO WAIT.T SUBROUTINE 
Hes BiLee2 BREE ae uci on 
13151 
13125 
13154 
13155 {THIS TIME IS APPROXIMATELY 
131 ‘LARGER THAN SOO MILLISECONDS 
Lai? 041570 000200 13: RTS RO 
13153 SBTTL RPO4 DATA TRANSFER SUBROUTINE 
Hips i eee WRITE/READ/WRITE CHECK ON THE RPO4 CYLINDER 0, 
t t i RH REGISTERS ARE APPROPRIATELY FILLED. 
13164 . i WHEN IT RETURNS FROM THIS SUBROUTINE TO THE MAIN 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


“J 
~_— 


b= bb Bb bo be he bb pe he he 
JWI) 0) WIIG) WWII GU GI GIGI GIG 
Ute ror ues Oru Boon 


tarot ta E Owe 
BSSGRRLSLS BSS 


fo 


— 


bo ee 
FOFOrUrorurorure 
WONT EWM ODDIE 


4 Bs > a ps fs Gs Bs 8 pe Be Bs ee 
O00 ee ee ee ee ee ee ee oe 


041612 
041620 
041626 


041634 
041636 


041640 


041706 


012037 


012737 
017737 
023737 


001401 
104132 


005077 
bvL277 


012777 
017777 
005737 
001006 
052777 


104411 
004060 
000200 


000200 
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OO464e2 
004172 
000001 
142246 
010700 


142246 
001124 


142250 
142216 


914000 


142760 
OO4644 


000001 


001124 


001126 
001126 


14234 
142174 


142160 
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653: 


1$: 
.SBTTL 


WK DK OK OC Dic ic 


ee @e @e @e'ee we 


PROGRAM IT MEANS THE COMMAND IS COMPLETE 
THE CALL IS BY A JSR RO,dCOMND COMMAND. 


: MOV (RO)+,COMAND § ;GET COMMAND 
MOV PKACK -(SP) :GET READY TO SET V 
BIS (SP) : GET PACK ACKNOBLEDGE COMMAND 


MOV (SPs. SRHCSI “SET V 


-CHECK THAT RHDS1 HAS VV!DRY!DPR!MOL 
MOV #VV!DRY'DPR!MOL,SGDDAT ;GET GOOD = 10700 


MOV JRHDS1,SBDDAT  ;READ RHDS1 FOR COMPARISON 
CMP SGDDAT,$BDDAT  ;COMPARE EXPECTED 
‘DATA WITH DATA READ FROM 
sRHDS1 
65$ :BRANCH IF GOOD 


BEQ 
ERROR 132 
sBEFORE ANY COMMANE IS GIVEN 
mS | SHOULD HAVE VV!DRY!DPR!MOL 


‘BUT CONTAINED WHAT IS 
‘GIVEN IN BAD RHDS! 
CLR JRHCA ; TRANSFER ON CYLINDER 0 
CLR JRHDST : TRANSFER ON SECTOR 0 


TRACK O 
MOV wECI!FMT22, JRHOF: INHIBIT ECC 
sFORMAT 16 qu PER WORD 


MOV JCOMAND , JRHCS1 T AND 
TST NOGO FE 6 TO Be BE GIVEN 
BNE 1$ ;BRANCH IF NO 

BIS #GO, JRHCS1 SET GO 


-WAIT FOR RDY BIT IN RHCS1 REGISTER TO SET 
WAT -TRAP TO WAIT. T SUBROUTINE 
WAIT FOR ROY BIT IN 


RHCS1 * AND 
RDY . 






THE WATT. f SUBROUTINE 
‘THIS TIME IS SSPROX! MATELY 
RTS Rg : LARGER THAN SOO MILLISECONDS 


TMO2 DATA TRANSFER SUBROUTINE 


THIS SUSROUTINE WRITES/READS/WRITE CHECKS ON THE TMO2-TU1E 
ON THE FIRST BLOCK FROM BEGINNING OF TAPE (BOT 

IT ASSUMES THE RH REGISTERS ARE APPROPRIATELY FILLED. 

WHEN IT RETURNS FROM THIS SUBROUTINE TO THE 

MAIN PROGRAM IT MEANS THE COMMAND IS COMPLETE. 


I tt te ee EE re ee eer eee ates 6 = 


MAI 
DER 


041756 
041764 


041766 
041774 


042002 
042004 
042006 


042010 
042016 
042020 
O420ee 


042024 


042030 
042032 
042034 


042036 
042042 


C-11-DERHAC-A 


Pll TMO2 DATA 


104411 
004072 
020000 


012737 
104411 
00407e 
020000 


005037 


104411 
004072 
00008e 


013746 
0527 16 


MACY11 


000002 


004176 
000001 


177777 


OO4646 


004142 
oco0c01 


7(732) 


001126 


142106 


142084 
142056 


OO4646 


1$: 


we 07:55 PAGE 248 
RANSFER SUBROUTI 


THE CALL IS 
JSR RO, JCOMND 


"gy Baier soil, El 







JRHOSi. $BDDAT 
BIC 4601! Gt TOS! 81 TOM; SEODAT °b ISREGARD BOT 

CMP SGDDAT,SBDDAT | ;COMPARE EXPECTED DATA WITH 
‘DATA READ FROM RHDS1 
:BRANCH IF GOOD 


‘BEFORE ANY COMMAND 
dS GIVEN DRIVE STATUS REGISTER 
NOT CONTAIN WHAT IS IN 


BEQ 1$ 
ERROR 134 


we #BOT, JRHDS1 i$ IT ALREADY AT BOT 
F YES 


an NOT aT BOT GIVE A RELIIND COMMAND 
hOV EWIND,JRHCS1 ;LOAD RHCS1 WITH REWIND COMMAND 
BIS ae JRHCS! 

WAIT FOR Bee BIT IN RHOS1 REGISTER TO SET 


iat “TRAP TO WAIT.T SUBROUTINE 
RHDS1 -AND WAIT FOR PIP BIT IN 
PIP ; RHO! REGISTER 
SET FOR MEANS meee DID. NOT 
t BON OF iy MITT “SUBROUTINE 
THIS S APPROXIMATELY 
LAR HAN SOO MILLISECONDS 


:WAIT FOR PIP BIT IN RHDS1 REGISTER TO 
MOV #-1,WATO PIP TO GO FROM 1 TO 0 
WAT -TRAP TO WAIT.T SUBROUTINE 


RHDS 1 a: WAIT re PIP BIT IN 
PIP *RHDS1 REGISTER 
- IF ERROR OCC 
-IT MEANS “PIP” DID NOT 
; ET THE F 


ULL COUNT 
sDOWN OF THE WAIT.T SUBROUTINE 
; THIS TIME IS APPROXIMATELY 
sLARGER THAN SOO MILLISECONDS 


CLR WATO 
“WAIT FOR BOT BIT IN nae REGISTER TO SET 
WAT -TRAP TO WAIT.T SUBROUTINE 
RHDS1 -AND WAIT FOR BOT BIT IN 
BOT *RHDS1 REGISTER 
IF ERROR O E 
-IT MEANS “BOT” or 


L COUN 

OF WAIT.T SUBROUTINE 
‘THIS TIME IS APPROXIMATELY 
;LARGER THAN SOO MILLISECONDS 


“CLEAR ATTENTIONS 
HOV OCLEAR, -(SP) 
BIS #GO, (SP) 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 249 
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13877 042046 012677 142006 MOV (SP)+, IRHCS1 
13279 -WAIT FOR DRY BIT IN RHDS1 REGISTER TO SET 
13280 o42e0S2 104411 WAT _sTRAP TO WAIT. 1 SUBROUTINE 
13281 O42054 004072 RHDS1 -AND WAIT FOR ORY BIT IN 
13282 O420S6 o00200 DRY *RHDS1 REGISTER 
13283 ;IF ERROR OCCURS HERE 
13284 -TT MEANS ™ ID NOT 
13285 -SET FOR THE FULL COUNT 
13286 -DOWN OF THE WAIT.T SUBROUT INE 
13287 “THIS TIME IS APPROXIMATELY 
$3288 ‘LARGER THAN SOO MILLISECONDS 
13289 O42060 25: ‘CHECK IF COMMAND IS REVERSE READ 
13290 -IF IT IS REVERSE READ, SPACE FORWARD ONE BLOCK 
13291 O42060 023777 OO4200 142554 bmp REVRED, JCOMAND -IS IT REVERSE READ 
13093 BuSny ne, 001700 142014 BTS Pig! HTC gBRANCH IF NOT 

8 : ; 
13634 042076 Ba5955 009010 142006 I BEPIOH Ne. ‘Db BrAtry 
13296 042104 012777 177777 141754 MOV 8-1, IRHFC -FRAME COUNT 1 
13297 *FOR SPACE FORWARD ONE BLOCK 
13°98 O42112 013777 oO4202 141740 MOV SPACFD,SRHCS1 © ;SPACE FORWARD 
13299 O42120 052777 O00001 141732 BIS #GO, JRHCS1 :GO 
13300 -WAIT FOR PIP BIT IN RHDS1 REGISTER TO SET 
13301 042126 104411 T -TRAP TO WAIT.T SUBROUTINE 
13302 042130 do407e RHDS1 “AND WAIT FOR PIP BIT IN 
13303 042132 o20000 PIP 3 GISTER 
13304 F CURS 
13305 T MEANS “PIP” DID NOT 
13306 IT, FOR THE FULL COUNT 
13307 *DOWN OF THE WAIT.T SUBROUT INE 
13308 ;THIS TIME IS APPROXIMATELY 
13309 ‘LARGER THAN SOO MILLISECONDS 
13310 ;WAIT FOR PIP BIT IN RHDS1 REGISTER TO SET . 
13311 042134 012737 177777 OO46Y4E MOV #-1,WATO -WAIT FOR PIP TO GO FROM 1 T0 0 
13312 O42142 104411 WAT . T.T SUBROUTINE 
13313 O42144 04072 RHDS1 “AND WAIT FOR PIP BIT IN 
13314 O42146 O20000 PIP } TER 
13315 -IF ERROR OCCURS HERE 
13316 "DID NOT 
13317 ;SET FOR THE FULL COUN 
13318 WN OF THE WAIT. T SIBROUTINE 
13319 ; THIS TIME IS APPROXIMATELY 
13320 ‘LARGER THAN SOO MILLISECONDS 
13321 O421S0 005037 OO464E CLR WATO 
13322 -WAIT FOR DRY BIT IN RHO REGISTER TO SET 
13323 O42154 104411 WAT “TRAP TO WAIT.T SUBROUTINE 
13304 O42156 o04072 RHDS1 “AND WAIT FOR ORY BIT IN 
13325 042160 o00200 DRY *RHDS1 REGISTE 
13326 -TF ERROR OCCURS HERE 
13327 -IT MEANS “DRY” DID NOT 
13328 THE : COUNT 
13329 F THE WAIT.T SUBROUTINE 
13330 THIS TIME IS APPROXIMATELY 
13321 LARGER THAN SOD MILLISECONDS 


13332 O4elb2 33: sNOW GIVE COMMAND 


 <§ LLL LG A A LL NY tm —e -—- -*-—-- «- 


U4 


SERNRE Pi ~DERHAE 02 DATA A TRANSFER SUBROUTINE Ne fae optecs 


ouSSuD 


42244 


104411 
004072 
000200 


104411 
004060 
000200 


001700 
000010 
141660 


14165¢ 
L424ce 


oo4e44 
ooc001 


141722 
141714 


141636 


141622 


4$: 


BIS #BPIS!NML,QRHTC ;800 BPI, NORMAL 
BIC 8EPAR, JRHTC ; 900 PARITY 
MOV RHC, ’=(SP) GE WORD COUNT 


NEG (S -GET POSITIVE NUMBER 
ADD (SP), (SP) ‘DOUBLE WORD 
NEG (SP) “GET NEGATIVE NUMBE 
‘FRAME COUNT REGISTER 
MOV (SP)+, JRHFC “FILL FRAME C 
MOV JCOMAND, JRHCS1 :GET COMMAND 
TST NOGO -IS GO TO BE GIVEN 
BNE 4S ‘BRANCH IF NO 
BIS #GO, JRHCS! : GO 
-WAIT FOR DRY BIT IN RHDS1 REGISTER TO SET 
WAT -TRAP TO WAIT. T SUBROUTINE 
RHDS1 -AND WAIT FOR DRY BIT IN 
DRY *RHDS1 REGISTER 
-IF ERROR OCCURS 
-IT MEANS “DRY” DID N T 
“SET FOR THE FUL COUN 
;DOWN OF THE WATT. F SUBROUTINE 
-THIS TIME IS AP 


PROXIMATELY 
sLARGER THAN SOO MILLISECONDS 


;WAIT FOR ROY BIT IN RHCS1 REGISTER TO SET 
WAT ; TRAP TO WAIT.T SUBROUTINE 
a ; AND gl SAA RDY BIT IN 


; OUNT 
; DOWN - THE WAIT.T SUBROUTINE 
sTHIS TIME IS APPROXIMATELY 
aTs an :LARGER THAN SOO MILLISECONDS 


ee eee ——_— 


FOY 
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:% THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
: ADDRESS FROM 176700 TO ANY TYPED VALUE 
BASECH: . 
104401 O42262 TYPE ;s TYPE ASCIZ STRING 
000424 BR a iGET OVER THE ASCIZ 
j i858: “ASCIZ <15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 
01374 | OO4060 NOY. SHRHCS1,~(SP) -GET READY TO TYPE OLD BASE 
OuoT 042346 TY 67 ss TYPE ASCIZ STRING 
000425 BR 6$ -GET OVER THE ASCIZ 
j i878: "ASCIZ <15)<12>/TYPE NEW’ BASE ADDRESS FOLLOWED BY ‘CR’/ 
104410 RDOCT 
012700 004102 MOV eRHOB RO ;GET STARTING ADDRESS OF RGISTERS 
012701 oo90024 MOV -NUMBER OF REGISTERS 
042710 177700 1S: BIC ire {ROD een B OLD BASE 
051620 BIS (SP), (RO)+ BASE 
005301 DEC R1 
001373 BNE 1$ : BRANCH F 20 NOT DONE 
104401 o4e4S2 TYPE 69$ ; 5 TYPE ASCIZ STRING 
00041 BR 685 “GET OVER THE ASCIZ 
j i898: ASCIZ ¢15)<12>/PRESENT VECTOR ADDRESS IS 7 
013746 002716 MOV QsRPVEC,-(SP) ;GET READY TO TYPE OLD VECTOR ADDRESS 
104402 TYPOC 
104401 O42e524 TYPE 71$ ; TYPE ASCIZ STRING 
000437 R 70$ T OVER THE ASCIZ 
p28: ASCIZ <15><12>/TYPE NEL VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED SY "CR"/ 
RDOCT 
012637 002716 MOV (SP)+, J#RPVEC s SETUP VECTOR ADDRESS 
104401 042636 TYPE 73$ TYPE AScIZ STRING 
13404 042634 Oo004e!1 BR 2§ -:GET OVER THE ASCIZ 
1340S -73$: .ASCIZ <15><12>/RESTART PROGRAM FROM 200 OR 2107 
13406 042700 bog. 
13407 042700 104401 O42706 TYPE 75$ : 3 TYPE ASCIZ STRING 
13408 042704 OO00414 BR ?ug T OVER THE ASCIZ 
13403 aaa i258: "ASCIZ <15><12>/NEW BASE WILL REMAIN? 
13411 042736 013746 OO4060 MOV J#RHCS1, -( SP) 
134l2 O4e742 104402 TYPOC 
13413 042744 104401 oO4e7S2 TYPE 775 ;;TYPE ASCIZ STRING 
13414 042750 Ooo41S BR b$ THE ASCIZ 
13415 ..77G. -ASCIZ <15><12>/NEW VECTOR WILL REMAIN / 
13416 O43004 76S: 
13417 043004 013746 092716 MOV J#RPVEC, - (SP) 
13418 043010 104402 TYPOC 
13419 942012 104401 oO43020 TYPE 79 ;; TYPE ASCIZ STRING 
13420 O43016 OOO4iE BR 78 T OVER THE ASCIZ 
13421 ..79§: -ASCIZ <15><12>/UNTIL PROGRAM rs RELOADED / 
2422 043054 785: 
13423 043054 900000 HALT 





MAINDEC-11-DERHAC-A MACY11 27(732) 
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3086 
134e6 043056 104401 043064 
0004: 1 


: ee nse 1 
Pa BSE Sisege TORE re 


oa il 07:55 PAGE 2eSe 
UTINE 


RPVECT: 
TYPE 65$ 


64s: 
TYPOC 
NOV #RPVECT, JRPVEC 
LT 


BR 4$ 
-65$: .ASCIZ /TRAPED FROM PC =’ 


Hi ASCIZ STRING 
T OVER THE ASCIZ 


TYPE FROM PC 
‘RESTORE TRAP RPOY VECTOR 
;CHANGE TO CONTINUE 
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Pll TMO2 DATA TRANSFER SUBROUTINE 
13437 - LERLELERLEEL EEL ESL ELL SELES 
3s .SBTTL SCOPE HANDLER ROUTINE 
13440 x= SESE SE AE SESE SESE AEE AE EE SE AE SESE AE SESE SEE AE HEE HE HEE HEHE HER RE REEL EERE AREER E 
13441 ATMS T TROLS THE OF SUBTESTS. IT WILL INCREMENT 
1344e LORD The Ter Oath N INT nr Her BIEPLAY eC. Beer aye? “> ) 
13443 + AND AG (SERFLG) 0 DISPLAY <1S 
134 seTHE SHITCH NOTIONS Pov BY dais TROUTINE ARE 
13446 :¥SW11= INHIBIT ITERATIONS 
13447 : #SWO9=1 LOOP ON ERROR 
13448 - #SWO8=1 LOOP ON TEST IN SWR<7:0> 
13443 : CALL 
SO -% SCOPE - sSCOPE=I0T 
13451 
134S2 043120 SSCOPE: 
13453 043120 005037 oO4646 CLR WATO -WAIT FOR BIT TO SET 
13454 USED IN “WAT WAIT ROUTINE 
1345S 043124 005037 o04644 CLR NOGO DO GIVE GO IN COMMAND ROUTINE 
13456 043130 032777 O40000 136002 1S: BIT #BIT14, JSWR ; ;LOOP ON PRESENT TEST? 
13457 043136 001111 BNE SOVER “YES IF SW14=1 
13458 -geueeSTART OF CODE FOR THE XOR TeSTERMAsae 
13459 043140 OO00416 &xTSTR: BR x 31 ON THE “XOR” TESTER CHANGE 
13460 t ae tHe emia N TO A “NOP” (NOP=240) 
13461 043142 013746 OO0004 MOV QNERRVEC,-(SP) 5 ;SA HE CON TENTS OF THE ERROR VECTOR 
134b6e 043146 012737 043166 ooo004 Nov 455 RRVEC TIMEOUT, 
ives B31 0 Bie 39 00004 nov (SP + GERRVEC pie THE ERROR V VECTOR 
nia 
l Bast ene cs: MP ore (SP)+ i 8Pe AR THE Ne ACK FP TER A TIME OUT 
13467 043170 012637 oo0004 MOV (SP)+. JHERRVEC ; ;RESTORE THE ERROR VECTOR 
13468 043174 O00423 BR 7$ "LOOP ON THE PRESENT TEST 
13469 943176 6$:;##88#END OF CODE FOR THE XOR ‘+ESTERSHaNE 
13470 043176 032777 OOO400 135734 BIT sBI TOS, JSWR ;;LOOP_ON SPEC. TEST? 
13471. 043204 001404 BEQ 33 
13472 043206 127737 135726 001102 CMPB a@SWR,STSTNM -:0N THE RIGHT TEST? SWR<7:0> 
13473 043214 001462 BEQ SOVER 3 §BR IF YES 
13474 043216 105737 001103 25: TSTB = SERFLG HAS AN ERROR OCCURRED? 
13475 Quzeee Oo142) BE 3 -:BR IF NO 
13476 043204 123737 001115 001103 CMPB RMAX,SERFLG ;MAX. ERRORS FOR THIS TEST OCCURRED” 
i378 O4se34 | G32777 ODIO00 135676 BHT 38 tog. aswR : }POOP’ ON ERROR? 
13458 Ba asa BB T404 BEG 4 : F NO 
13480 043244 013737 001110 OO1106 7S: NOV SLPERR, SLPAOR ::SET LOOP ADDRESS TO LAST SCOPE 
type ea rita 001103 4S: CLRB  SERFLG >: ZERO THE ERROR FLAG 
13483 043260 005037 O01212 CLR STIMES j CLEAR THE NUMBER OF ITERATIONS TO MAKE 
13484 043264 O0041S BR 1$ :: ESCAPE TO THE NEXT TEST 
13485 043266 032777 OCOYOOO 135644 3S: BIT #BIT11,aSWR +3 IMTRTT ITERATIONS? 
134g? bu3076 BS 757 001100 oT sPass a7: FIR T PASS OF PROGRAM 
13488 3302 001406 BEQ + INHI BFF te Rat LON 
13489 043304 005237 001104 INC SICNT i INCREMENT. BF ERATION 


rR Baie feggy Slele coum gE Rstewr 1G NP dT "Oe 
13492 043320 012737 000001 001104 15: MOV #1,SICNT - *REINITIALIZE THE ITERATION COUNTER 


— =~ ——_ ——— re OO 8 ee ee ee —- o-- * ——- * 


O4 


4) es | neiaite P Y11_ 27(732) O9-SEP-76 07:55 ° PAGE 2S4 
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O13 Oot 108 O0lele MOV een STIMES ;;SET NUMBER OF ITERATIONS TO DO 
$SVLAD: — -:COUNT TES; NUMBERS 


837 Qo1li0 ry ‘ER ii RivE ERROR Looe ADORE 


V 
005037 001214 CLR > CLEAR THE ESCAPE M ERROR ADDRESS 
112737 000001 001115 MOVB ok ALLOW ONE(1) ERROR ON NEXT TEST 


i, ise SE soem TR RS TOY HST ROE 


RTI ; ;FIXES PS 
000004 SMXCNT: 4 t haKe SNURBER OF ITERATIONS 








MAI 
OE 





C-11-DERHAC-A yale 
Pll CONVERT BINARY 
043400 


020200 
000020 
oo00ss 


043614 
000040 


043604 


000001 
000060 
000040 


000010 


177777 


7(732) 


000001 


177777 


177776 
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.SBTTL CONVERT BINARY TO DECIMAL AND YPE ROUTINE 


ATH 


 ESIGNE 
; RNUNBE 


[ PapePpanesennegsnsennpanennansnadnsnnessasenousansnceneseaneen 
ROUTINE IS T R 2 T_ BINARY NUMBER T 
(ASCII) NUMBER AND TYPE IT. 


A S-DIGIT 
ON WHETHER THE 





DEPENDI 


TIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


;#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


‘ 
‘ 
2o 


STYPDS: 


73: 


9S: 





DECI 
1S POS 

:#REPLACED WITH SPACES. 
*CALL: 

MOV NUM, -(SP) 

TYPDS 

MOV RO, -(SP) 

MOV R1'-(SP) 

MOV Re. -(SP) 

MOV R mat 

MOV R5’-(SP) 

MOV #20200, - (SP) 

MOV 20(SP);RS 

BPL 

NEG 

MOVB =, 1( SP) 

CLR 

MOV #SDBLK, R3 

MOVB = a’, (RS) + 

CLR Re 

MOV SOTBL(RO),R1 

ys 

Uy 

INC R> 

BR 3$ 

ADD R1,RS 

TST Re 

BNE c§ 

TSTB Ss SP?) 

BMI 7§ 

ASLBs-« CSP?) 

BCC $ 

MOVB  I1(SP).-3(R3) 

BIS #°0,Re 

BIS RD 

MOVB Re. (R3)+ 

TST (RO)+ 

CMP RO, #10 

BLT 2§ 

BGT 8S 

MOV RS, Re 

BR 6S 

TSTB =: (SP) + 

PL 9 

MOVE ch(SP) ~2(R3) 

CLRB (R33) 

NOV (SP)+,R 

M (5P)+°R 

MOV (SP)+ Re 


;sPUT THE BINARY NUMBER ON THE STACK 
+30 TO THE ROUTINE 


PUT POINTER 
T CHARACTER TO A BLANK 
D NUMBER 

‘GET THE CONSTANT 
FORM THIS BCD DIGIT 

-BR IF DO 
:: INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
js CHECK IF BCD DIGIT=0 


;FALL THROUGH IF Q 
are DOING LEADING 0’S? 





: BR IF NO 
;;YES--SET THE SIGN 
MAKE THE A's DIGIT ASCII 
55M MAKE IT A SPACE IF NOT ALREADY A DIGIT 


;PUT Ne CHARACTER IN THE OUTPUT BUFFER 


He The ToL E "INDEX 


50 + § NEXT 
ie TQ 
3; GET T xg 
»GO CHANGE TO ASCII 
WAS THE LSO THE FIRST NON-ZERO? 


z YES--SET THE al FOR TYPING 
>SET THE TERMINAT 


Hs STACK INTO 5 


;;POP STACK INTO Re 


ek ptt ees 
DERHAC . P 


13559 
13561 


043730 
043734 





105737 
100002 
00 


105366 
002770 


MACY11 27(732) 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


043614 
000002 


001157 
000002 


000002 
000011 
000200 


044040 
043774 
001156 
001154 


000001 


000004 


i 
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MOV (SP)+,R1 ;;POP STACK INTO Ri 
MOV (SP)+’RO : POP STACK INTO RO 
TYPE SDBLK ::NOW TYPE THE NUMBER 
MOV 5(SP),4(SP) :: ADJUST THE STACK - 
OV (SP)+' (SP) 
TI RETURN TO USER 
SDTBL: 10000 
1000. 
100 
10. 
SOBLK: .BLKW 
_SBTTL TYPE MROUTINE 
; Se EE ANTUDE nec? MeccnGe MECGAGE MUST TERMINATE WITH AO. 
fee Aine WEG, eget & MEER MOLT GemveTERe EM 
SNOTE TS *§hUL MSR NTAING THE oF LL TO BE sf TER a “LINE eee RHORACTER. 
+ NOTE?: SFILCS CONTAINS THE NUMBER OF FILLER SHARC TERS REQUIRED. 
; ANOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
+ ¥CALL: 
#1) USING A TRAP INSTRUCTION 
it TYPE §_,MESADR »:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
: i TYPE 
- MESADR 
.e 
STYPE: STB STPFLG ifs THERE A TERMINAL? 
HALT i sHALT HERE IF NO TERMINAL 
1$ MOV 9 AVE 
MOV RO cit? RO i E Boorse OF ASCIZ STRING 
2$ MOVB = (RO)+,-(SP) : PUSH CHARACT ER TO BE TYPED ONTO STACK 
BN 48 BR F IT ISN’T THE TERMINATOR 
S (SP)+ ;;1F TERMINATOR POP IT OFF THE STACK 
69$: MOV (SP)+.RO *RESTORE RO 
3$: ADD #2, (SP) ADJUST RETURN PC 
US CPE BHT, (SP) ::BRANCH IF <HT> 
CMPB CRLF, (SP) ::BRANCH IF NOT <CRLF> 
TST (SP)+ 3 POP <CR><LF> EQUIV 
TYPE -: TYPE A CR AND LF 
CLRB SCHARCNT ; ;CLEAR CHARACTER COUNT 
BR ->GET NEXT CHARACTE ER 
S$ JSR PC. STYPEC - G0 TYPE THIS CHAR CTER 
6S CHPB SFILLC, (SP)+ iTS IT TINE F OR FILLE CHARS. ? 


F x 
-:GET # OF FILLER CHARS. “NEEDED 
::AND THE NULL CHAR. 
i DOES A NULL NEED TO BE TYPED? 
‘BR IF NO--GO POP THE NULL OFF OF STACK 


MOV SNULL , -(SP) 
1(SP) 
6$ 


o>. wre = = ~~ = * 7 


MA C-11-DERHA MACY11 
DERARESPLL TYPE ROUTINE 


13615 


— 
o 
~ 
o 


oe 


SoS ARON 


31 


bs bo bs B+ f= bo Fo Pe B+ bh fh 2 Pe Pe P= H+ b= Bo He 


36 
% 
36 


ade 
BeBe 


13640 


043736 


004737 
105337 
000770 


112716 





000000 
000207 


900000 


000000 
000011 


044063 


044064 


000207 


043774 
044040 


n08007 


135150 


po900e 
044040 
000012 


27 (732) 


044040 


pda0d8 


000002 


O44O46 
044050 
000060 
000062 


135012 
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JSR PC STYPEC 
DECB $c CHARC 
BR 
-HORIZONTAL TAB PROCESSOR 
QS: MOVB (SP) 
95: JSR re, éTYPEC 
BITB 7’ SCHARCNT 


BNE (SP)+ 
BR ni 
STYPEC: TSTB 
STYPEC 
MOV e (SP) ISTPB 
MP #CR, 2tSP) 


NE 1$ 
Br SHYPEx™ 





1$: CMPB @LF.2e(SP) 
BEQ STYPEX 
INCB (PC)+ 

SCHARCNT: .WORD 0 


STYPEX: RTS PC 
.~SBTTL TTY INPUT ROUTINE 


;;GO TYPE AN 
303 or COUNT 5s A COUNT 


; sREPLACE TAB WITH SPACE 

; TYPE A 
BRANCH F NOT AT 
3 TAB STOP 
+ Oot SOE CDRA OFF +oKN 
::WAIT UNTIL NPRINTER IS READY 
Hck: CHAR TO Fe TYPED INTO DATA REG. 
zr S CHARACTER A CARRIAGE RETURN? 
if Yepe-CLERR CHARACTER COUNT 
IIS CHARACTER A LINE FEED? 
»;BRANCH_IF Y 


::COUNT THE CHARACTER 
+: CHARACTER COUNT STORAGE 





ss KEERLERELEAE LR AAA AE EE LEAL ERR E RARER EKER RE ELLE REALL ERE LER ELE LEE 


ENABL 

TKCNT: .WOR - NUMBER TEMS IN QUEUE 
TKOIN; 2 2 >: INPU POL nt BS 

STKQOUT: .WORD -QUTPUT POINTER 

STKQSRT: .BLKB 9 -s TTY KEYBOARD QUEUE 
TKQEND= 

EVEN 

-*TK INITIALIZE ROUTINE 

; XTHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
-*#SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 

baemi, 

-% JSR PC, STKINT 

- x RETURN 


STKINT: CLR STKCNT 

MOV ¥STKQSRT, STKQIN 
MOV STKCIN, $STKQOUT 
¥STKSRYV saaRYEC 
MOV #200, a¥TKVEC+2 





TST aSTK 
MOV 8100, STKS 
RTS PC 

-#TK SeRVICS ROUTINE 

:*TH IS ROUTIN 


sCLEAR COUNT OF ITEMS IN QUEUE 
: MOVE THE STARTING ADDRESS OF 


THE 
INTO THE INPUT & OUTPUT POINTERS. 


: QU 
SANETTALL ALIZE THE KEYBOARD VECTOR 


VEL 4 
CLEAR DONE FLAG 
» ENABLE TTY KEYBOARD INTERRUPT 
>;RETURM TO CALLER 


E WILL SERVICE THE TTY KEYBCARD INTERRUPT 


-*BY READING THE CHARACTER FROM THE INPUT SUFFER AND PUTTING 


- —_—— = — -_—-*. 


SL re a ee eee ee 


MAINDEC-11-DE 
DERHAC.P11 


wie bs bm Be be ee Bs ee 


GE 






ad = 


sie 
£28 


Seite 
SS BERR 


decenesnes 


RERRRARRAL: 
WO NOU £ Wr © 


INN 
Tet = 





044334 


neFTY INPU 


O11646 


135006 
177600 
000003 


044543 
o44064 


040654 


000011 
001216 


000023 
134722 
134714 
134710 

ppaue 


MACY11 27(732) 
T ROUTINE 


o44o44 


"134666 


0 
O44046 O44063 
O440Se O44O46 
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;¥1T IN THE QUEUE. 
IF THE CHARACTER IS A “CONTROL-C" (tC) STKINT IS CALLED AND 
;*UPON RETURN EXIT IS MADE TO THE “CONTROL-C” RESTART ADDRESS (OPERSEL) 


éTKSRV: NOvB aSTKB, -(SP) ss PICKUP THE CHARACTER 


BI #40177, (SP) : STRIP UNK 

CHP (sp). #3 3318 iT A CONTROL C? 
TYPE SCNTLC Ty A CONTROL-C (1C) 
JSR PC STKINT -: INIT THE KEYBOARD 
TST (SP)+ : > CLEAN 


UP STACK 
JMP ORERSEL ;;CONTROL C RESTART 













1$: 
CMP #9. , STKCNT ids THE QUEUE FULL? 
TYPE $ ELL 47 THe T ~ 
Ist iF } + an HE ORAC TERS OFF OF STACK 
3$ CHP (SP), #23 iis IT A CONTROL-S? 
CL 353 A 3 ‘DISABLE TTY KEYBOARD INTERRUPTS 
TST (SP)+ CL EAN CHAR OFF STACK 
31S: TSTB g$TKS ; SWAT FOR A CHAR 
BPL g -:LOOP UNTIL ITS THERE 
BIC ancl? SP tt EKE IT PoBIT ASC 
CNP Hoae TAT A CONTROL-G? 
NOV REEL TTY KEYBOARD INTERRUPTS 
325: INC STKCNT =:COUNT THIS CHARACTER 
CMP (SP), #140 He IT UPPER CASE? 
BLT js BRANCH 
CHP (SP), #175 3315 IT A SPECIAL CHAR? 
BIC #40. (SP) tt MAKE IT LIPPER CASE 
4g: MOVE  (SP3+,aSTKQIN :;AND PUT IT IN QUEUE 
INC T ; sUPORTE THE POINTER 
CHP STKGIN, #STKQEND ; ; GO F F THE END? 
MOV SSTKOSRT, STKGIN ey THE POINTER 
S$: RTI 
.OSABL LSB 


Ny a TIT ooo cme 
THIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 


- ROCHR :GET A CHARACTER FROM THE QUEUE 
- RETURN HERE SICHARACTER IS ON THE STA 
- ;;WITH PARITY BIT STRIPPED OFF 


SROCHR: MOV (SP) ,-(SP) ;;PUSH DOWN THE PC AND 


en ae - . 


RAINDECS +} -OERHAG=® seul Routine OP SEP-”® 07:55 PAGE ht" 























044336 016666 o000004 000002 MOV 4(SP) ,2(SP) THE PS 
000004 CLR 4(SP) ::GET READY FOR A CHARACTER 
CLR -(SP) ::PUT NEW PS ON 
MOV 64S, -(SP) ::PUT NEW PC ON 
oun. RTI -:POP NEW PC AND PS 
1S: TST STKCNT :sWAIT ON A CHARACTER 
DEC STKCNT ; sDECREMENT TH THE COUNTER 
STKQOUT,4(SP) 5; ACTER 
INC T ; UPDATE, THE MBOINT ER 
: CNP TKQOUT, 8STKQEND' ; ;DID IT GO FF OF THE END? 
D127 37 9440S2e o44050 MOV #STKQSRT, sncnout’ -RESET THE POINTER 


RT 
Ss aageeli eegeensenneeanneenesldseatreanensuaraeeaneeaceen 
+ RTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 






*CALL: 
- ROLIN »: INPUT A STRING FROM THE T 
: URN HERE ADDRESS OF FIRST ST ORRETER TWILL BE ON THE STACK 
t ;; TERMINATOR WILL BE A BYTE OF ALL 0’S 
010346 SROLIN: MOV ;;SAVE R3 
012703 o44S32 1S: MOV RS ETVIN. R3 -GET ADDRESS 
022703 2$: CHP. aSTTYINGS. R3 BUFFER FULL? 
RDCHR 55G0 READ ONE CHARACTER FROM THE TTY 
10$ NOPE Noy ERS) : - R BUT 
' NE 5g ig P iF aie 
us: TYPE SQUES rm 
BR  ALeeR RHE BUFFER AND LOOP 
33: Nove (R3), 9 :?ECHO THE CHARACTER 
CMPB iS, (R3)+ ; ;CHECK FOR RETURN 
Nee -1(R3) tT EPEAR "RETURN THE: 15) 
TYPE LF : 55 TY “af LINE FEE 
NOV tap) Ree + ies Re STACK AND PUT ADDRESS OF THE 
MOV 4u(SP}.2(SP) - FIRST ASCII CHARACTER ON IT 
MOV ¥STTYIN, 4(SP) 
RTI ; sRETURN 
9$: .BYTE 0 ::STORAGE FOR ASCII CHAR. TO TYPE 
13771 .BYT :ReceaNE ge 
1 STTYIN: .BLK \ : RESERVE 9. BYTES FOR TTY INPUT 
- “ASCIZ 7#C7<15><12> *:CONTROL “C™ 


Bs /4U7<415><12>. 3;CONTROL “U” 
BAH ee AUARSIR eit P 
eASCIZ <15><12>/SWR = / 
.ASCIZ / NEW = / 


ESSERE 
g 


-FROM THE TTY 


Cee ee ee ee ee ed ed ee 





tl aS | etait -A 
DERHAC.P11 


ee tt tee re 
SENSScecroe 


8 
m 


dd td 
RREERE SESE 


44742 


000000 


MACY11 27(732) 
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000004 o0000e 


044732 


000060 


000067 


177770 


p00012 
044742 


00 1leee 
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.SBTTL READ AN OCTAL NUMBER FROM THE TTY 


: » LESSEE SERESERERARAE SARA RSSRARRSRSRAERA RARE RELA AE RAAE RARE LAELE 
THIS ROUTINE MILL A READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


: XCHANGE 


Tee INPUT Clara TERS WILL BE CHECKED TO INSURED THEY ORE LEGAL 


$RDOCT: 


1$: 


eS: 


33: 


4$: 


S$: 


SHIOCT: 


ILLEGAL 


; #FOLL OWED BY A CARRIAGE RETURN-LINE FEE ED. THE _COMPL 


S READ A “?" WILL BE TYPED 
ETE NUMBER MUST 


RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 


RDOCT 
RETURN HERE 


B 
. WORD 


#’0, (SP) 
4 


#107, (SP) 
(SP)+,R1 


; | READ AN OCTAL NUMBER 
*:LOW ORDER BITS ARE ON TOP _OF THE STACK 
-:HIGH ORDER BITS ARE IN SHIOCT 
; s PROVIDE SPACE FOR THE 
- INPUT NUMBER 
; {PUSH RO ON STACK 
R1 ON STACK 
tt USH Re ON STACK 
**READ AN ASCIZ LINE 
+ OND Cae tt OF 1ST CHARACTER 
:: CLEAR DATA WORD 
TE OER THIS —_— 
: > MAKE SURE THIS trea 
--IS AN OCTAL DIGIT 
33 #2 
5584 
53 *8 


>;STRIP THE ASCII JUNK 
3 ;ADD IN THIS DIGIT 


: : CLEAN Mg by FROM STACK 
;;SAVE THE RESUL 


--POP STACK INTO Re 
-:POP STACK INTO Rl 
; s POP STACK INTO RO 
+ CLEAN PARTIAL FROM STACK 
--SET A TERMINATO 
-: TYPE UP THRU THE BAD CHAR. 
ioe. “CR” & “LF” 
TRY AGAIN 
::HIGH ORDER BITS GO HERE 


——— —— — Or ee mown ee ~~ 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


13837 


04S07e 
04S076 
045076 


04S:00 
045102 
O45 106 


00 

013716 
005737 
001462 
013716 
000002 


000000 
013746 
042716 


MACY11 27(732) 
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061103 


001102 
002000 


045102 
001223 
134074 


001000 


001110 
001214 


001214 


001140 
177277 


134162 
1341S¢2 


134062 
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.-SBTTL ERROR HANDLER ROUTINE 


SEKEXKE RS EEEA HELE SE REKHAESRERRLEKESERERA PEER LE RELL EFL SEER FELL ES 
THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
= & ROR ITEM NUMBER AND 





;XSAVE THE ER THE ADDRESS OF THE ERROR CALL 
-¥AND GO TO SERRTYP ON ERR 
jSTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
: ¥SW13=1 INHIBIT ERROR TYPEOUTS 
- ¥SW10=1 BELL ON ERROR 
j #SHOS= | LOOP ON ERROR 
: ERROR N - sERROR=EMT AND N=ERROR ITEM NUMBER 
SERROR: 
75: INCB  S$ERFLG 33SET THE ERROR FLAG 
BEQ 7§ ‘DON’T LET THE FLAG GO TO ZERO 
MOV STSTNM, JDISPLAY ; ;DISPLAY TEST NUMBER AND ERROR FLAG 
BIT ¥BIT10, ISWR *BELL ON ERROR? 
BEQ 1$ ; NO - SKIP 
TYPE SBELL *RING BELL 
1S: INC SERTTL tt COUNT THE NUMBER OF ERRORS 
HOV (SP). SERRPC :GET ADDRESS OF ERROR INSTRUCTION 
MOVB »:STRIP AND SAVE THE ERROR ITEM CODE 
BIT -:SKIP TYPEOUT IF SET 
BNE 1 SKIF TYPEOUTS 
JSR PC wuneamt 0 TO USER ERROR ROUTINE 
we TYPE  ,SCRLF 
os: TST ISWR sHALT ON ERROR 
BPL 3$ +} SKIP IF CONTINUE 
HALT T ROR! 
33: BIT #81709, JSWR -:LOOP ON ERROR SWITCH SET? 
BEQ Ug ;;8R IF NO 
MOV S_PERR. (SP) ‘FUDGE RETURN FOR LOOPING 
4S: TST SESCAPE ; j CHECK FOR AN ESCAPE ADDRESS 
BEQ S$ IF NONE 
MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 


RTI RETURN 
even rearererererrenerealinerenenennenenennnien 
"SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
; XTHIS ROUTINE USES THE “ITEM CONTROL BYTE” (SITEMB) TO DETERMINE WHICH 
+E IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” (SERRTB), 
-#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
-*IT IS A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 
; WITH ONLY MINOR cHENeES 


IRST IF SWITCH & IS SET AND SWITCH 8 RESET THEN 
+ ¥ALL REGISTER CONTENTS WILL BE TYPED BEFOR Tee tenes THE ERROR 
SECOND IF THE CURRENT ERROR HAS THE SAME ITEM R 
VIOUS ONLY THE DATA WILL BE "FYPED 
» AND NOT THE ERROR MESSAGE AND HEADER. 
OUS ITEM Tati prOenr ton 


RITEM: : PREVI 
SERRTYP: MOV as8SWR.-(SP) :GET SWITCH SETT 
BIC #tCSO0, (SP) ‘KEEP ONLY SWITCH 8 AND & 


Me pit ene 


DERHAC . P 


aa 


O4ESO4 
O04S206 
045212 
04S230 


045230 
045234 


O4S340 
Ut 


D4S346 


2726 

1001 
000402 
000137 
104401 
104401 
000405 


017746 
104402 


104401 
000405 


017746 
104402 


104401 
000406 


017746 
104402 


104401 
000406 


017746 
104402 
104401 


000406 


017746 
104402 


104401 
000406 


017746 
104402 


104401 


MACY11_27(732) 
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000100 


046022 


000200 


045140 


136704 


045166 


136660 


045214 


136634 


045244 


136574 


045274 


136556 


045324 


136530 


045254 
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ROUTINE 


1$: 
es: 


-65$: 


bag: 


--67$: 


66S: 


-69$: 


bas: 


-71$: 


dhs: 


-7 335: 


Zt 


-753: 


+46: 


#SWO6, (SP)+ 
1$ 


eS 
asTYPERR 
, CRLF 
65$ 
645 
/ RHWC= 7 
AJRHWC , - (SP) 


67$ 

6% 

/  RHBA= / 
JRHBA, - (SP) 


69$ 

BS 

/ RHCS2= 7 
JRHCS2, -( SP) 


71$ 
70$ 
/ RHCS1= 7 
JRHCS1,-(SP) 


73% 

725 

/ RHDS1= 7 
JRHDS1, -( SP) 


75$ 
4§ 
/  RHERI= 7 


AJRHER! , -( SP) 


77S 


ite 6 BF ner sae 8 RESET 


‘aRANCH IF er "g IS SET AND 8 RESET 
;JUMP_IF SW 8 IS SET 
:OR IF SW 8 IS RESET ANC Sw 6 IS RESET 


;; YPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHWC CONTENTS 


:; TYPE ASCIZ STRING 
SIGET OVER THE ASCIZ 


GET READY TO TYPE RHBA CONTENTS 


.; TYPE ASCIZ STRING 
::GET OVER THE ASCIZ 


;GET READY TO TYPE RHCSe CONTENTS 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCS1 CONTENTS 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHDS1 CONTENTS 
;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


GET READY TO TYPE RHER1 CONTENTS 


;; YPE ASCIZ STRING 


MAINDEC-11-DER 
DERHAC.P11 


O4S4S6 
O4S462 


045476 


04S476 
045502 


045504 
045510 


pizeSu 
0455¢4 
045530 
045532 
045536 
045552 


655¢ 
45556 


O4SSE0 
O4SS564 


O4S606 


HAC-A 


000406 


017746 
104402 


104401 
000406 


017746 
104402 


104401 
000406 


104408 


104401 
000405 


017746 
104402 


104401 
000405 


017746 
104402 
104401 


000405 


017746 
104402 


104401 
000405 


017746 
104402 


104401 


MACY11 271732) 


136524 
o4s4o4 
136476 
o4s434 
136412 
O4S464 
136412 
045512 
136346 
O4SSHO 
136334 
OUSSbE 
136300 


O4SE 14 
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->77$: 


76S: 


--79§: 


78S: 


-81$: 


bbs: 


-§359: 


bdg: 


; 855: 


bd: 


- 875: 


bis: 


-- 999: 


eas: 


BR 
~ASCIZ 
MOV 
TYPOC 


TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
.ASCIZ 


MOV 
TYPOC 


TYDE 
»ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
»ASCIZ 
MOV 
TYPOC 
TYPE 
BR 
~RSCIZ 
MOV 
TYPOC 
TYPE 
BR 
~ASCIZ 
MOY 
TYPOC 


TYPE 


765 
4 RHER2= / 
JRHER2, -( SP) 


79$ 
72S 
4 RHER3= / 


JRHER3, - (SP) 


81$ 

O$ 

/  RHDST= 7 
@RHDST , -( SP) 


83$ 
82$ 
/  RHCA= 7 


JRHCA, - (SP) 


85$ 

4 

/  RHAS= 7 
JRHAS , - (SP) 


873 
6$ 
/  RHOF= 7 
JRHOF , -( SP) 


99S 
898g 
/  RHMR= / 


IRHMR, - (SP) 


, 91S 


-;GET OVER THE ASCIZ 


;GET READY TO TYPE RHER2 CONTENTS 


;>; TYPE ASCIZ STRING 
--GET OVER THE ASCIZ 


sGET READY TO TYPE RHER3 CONTENTS 


-: TYPE ASCIZ STRING 
*-GET OVER THE ASCIZ 


+ 


GET READY TO TYPE RHDST CONTENTS 


;; YPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHCA CONTENTS 


>; TYPE ASCIZ STRING 
-;GET OVER THE ASCIZ 


sGET READY TO TYPE RHAS CONTENTS 


>; YPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


-GET READY TO TYPE RHOF CONTENTS 
>; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;GET READY TO TYPE RHMR CONTENTS 


»; TYPE ASCIZ STRING 


*-* ~~. vee ee _*o-—?- = 


ene 


MAINCEC-11-DER 
DERHAC.P11 


045612 


O¥eeoe 
04563e 


04S704 
045704 
045710 


0457 le 
045716 


mie 
et 


HAC-A 


o0040S 


017746 
104402 


104401 
000405 


017746 
104402 


104401 
000406 


017746 
104402 


104401 
000406 


thes: 
104402 


104401 
000405 


017746 
104402 


104401 
000405 
017746 
104402 
005037 
104401 
010046 
00S900 
153700 
001004 
013746 


MACY11_27(732) 


136246 


O4S64e 


136220 


045670 


136214 


045720 


136166 


045750 


136120 


045776 


136074 


045100 
001223 


001114 


CO1116 
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91$ oASCIZ 
66s: 
MOV 
TYPOC 
TYPE 
$35 oASCIZ 
+] 
MOV 
TYPOC 
TYPE 
955 ORSCIzZ 
45: 
MOV 
TYPOC 
TYPE 
975 oRSCIZ 
S6s: hae 
MOV 
TYPOC 
TYPE 
995 oASCIZ 
665: 
MOV 
TYPOC 
TYPE 
BR 
-- 101%: .ASCIZ 
idos: 
OV 
TYPOC 
CLR 
TYPERR: 
TYPE 
MOV 
CLR 
BISB 
BNE 
MOV 


90$ 
/  RHLA= 7 
JRHLA, -( SP) 


935 
925 
/  RHCC= / 


@RHCC , - (SP) 


/ RHOT= / 


ARHSN, - (SP) 


adePRITEM 


SCRLF 
RO,~(SP) 


deSITEMB,RO 
1$ 


SERRPC, (SP) 


»:GET OVER THE ASCIZ 


-GET READY TO TYPE RHLA CONTENTS 


;; TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


-GET READY TO TYPE RHCC CONTENTS 


>; TYPE ASCIZ STRING 
-;GET OVER THE ASCIZ 


-GET READY TO TYPE RHEC1 CONTENTS 


-: TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


:GET READY TO TYPE RHEC2 CONTENTS 


-: TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


-GET READY TO TYPE RHDT CONTENTS 


»: TYPE ASCIZ STRING 
-:GET OVER THE ASCIZ 


-GET READY TO TYPE RHSN CONTENTS 


:CLEAR PREVIOUS ERROR ITEM 
-"CARRIAGE RETURN” & “LINE FEED” 
tBTCKUP THE ITEM INDEX 
-IF ITEM NUMBER IS ZERO, JUST 

F THE ERROR 


:TYPE T HE 
-SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 


MAINOEC-11-DERHAC-A 
DERHAC.P11 





4 
is 
150 
ite 
130 
142 
144 
146 
150 
152 
1S4 
156 
160 
160 
162 
164 
166 
70 
74 


0461 
O46 
Oe 
O46 

6 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
O46 
ae 
ee 





03 
104401 
64 


012601 


O46ec2 


MACY11_ 27(732) 
ERROR MESSAGE TYPEOUT ROUTINE 


001226 
045100 


045100 
046112 


001223 
046130 


001223 


046216 


oo004e O00046 


000 
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1$: 


133: 


2S: 
33: 


4§: 
S$: 


6$: 


7$: 


95: 
10$: 


11S: 


10% 
RO 
RO 
RO 


RO 
eSERRTB, RO 
RO. JePRITEM 


13 
(RO)+, (RO)+ 


RO. JUPRITEM 
(RO)+, 28 


. SCRLF 
(RO)+, 4S 
S$ 


tei )+, -<SP) 
8$ 
J(R1)+,-<SP) 
(R1) 


95 
11% 


)+,Ri 


6$ 
(SP 
(SP)+_RO 
et 

+4 


2, #46 


R PC 
-ASCIZ 7/7 # 
. EVEN 


aa ea ASCIICALL DIGITS: 


ET OUT 
; ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 


FORM TABLE POINTER 
:WAS PREVIOUS ERROR SAME 


: BRANCH 
:POP RO OVER EM AND DH 


;SAVE NEW ERROR ITEM 
‘PICKUP “ERROR MESSAGE” POINTER 
SKIP TYPEOUT IF NO POINTER 

TYPE THE “ERROR MESSAGE™ 

:"ERROR MESSAGE” POINTER GOES HERE 
S*CARRIAGE RETURN” & “LINE FEED” 
‘PICKUP “DATA HEADER” POINTER 
;SKIP TYPEQUT IF 










iJ 1 eee HEADER™ 
; "DATA R* POINTER GOES HERE 
RETURN” LINE FEED” 


: “CARRIAGE &” 


ave, A! “DATA TABLE” POINTER 
:BR IF NO baTA TO BE TYPED 
; PICKUP “DATA FORMAT” POINTER 





“OCTAL” OR “DECIMAL” 


-BR IF DECIMAL 

: SAVE a(R1)+ FOR TYPEOUT 

: GO TYPE--OCTAL ASCIICALL DIGITS? 
3 SAVE a(R1)+ FOR TYPEOUT 


:GO TYPE--DECIMAL ASCIT WITH SIGN 
:IS THERE ANOTHER NUMBER? 


:BR_IF_NO 
‘TYPE TWO(2) SPACES 
: LOOP 


; RESTORE al 
:"CARRI 8 “LINE FEED” 
;ARE WE IN OY oe ‘auto ACCEPT MODE? 
BENCH OVER HALT IF NOT 

T AFTER ERROR MESSAGE 


tate SPACES 


Titi t itt ities Tt tl dalelohebeleheheieteheiioteieiotedeietetebeieteiebeiehebeiehobebeieiee 
ee i Lt iLL did dadalalalalalalalalalalalalehebalalalalsialelelel 


"SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


+ LELEEREEE LEE EREELERE EERE RREL ALLELE REEL ARLE LALLELA LEE LARE RE 
THIS ROUTINE IS USED TO CHANGE R 16-BIT BINARY NUMSER TO A 6-DIGIT 


: £0 T 
£5 Y 
» *CAL 


POS--- 


(AS 


ENTER HERETO SETUP SL SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


MRINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 97:55 PAGE 266 
DERHAC.P11 BINARY TO OCTAL (ASCII) AND TYPE 


14117 .% MOV NUM, - (SP) »:NUMBER TO Heeb TYPED 
14118 : i TYPOS p#CALL FOR ry EOU 
14119 : i .BYTE N -:N=l T OR NUMBER OF DIGITS TO TYPE 
14120 2% .BYTE MM ->M=] oR 0 
14121 : i 1=TYPE LEADING ZEROS 
ules : iS D=CUPPRESS LEADING ZEROS 
14124 : *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
14125 -*STYPOS OR $TYPOC 
14126 -*CALL: 
14127 i MOV NUM, - (SP) ; NUMBER TO BE TYPED : 
14128 i TYPON -:CALL FOR TYPEOUT ) 
14130 : $TYPOC---ENTER HERE FOR wane OF A 16 BIT NUMBER 
14131 : #CALL: | 
14132 : i MOV NUM, -(SP) -:NUMBER TO BE TYPED ! 
14133 * TYPOC ::CALL FOR TYPEOUT | 
14135 O46222 017646 O00000 STYPOS: MOV a(SP),-(SP) 3 PIC THE MODE | 
14136 O46226 116637 OO000l o4B44s MOVE 1(SP) .SOFILL -LOAD ZERO FILL SWITCH | 
14137 O46234 112637 O46447 MOVE  (SP)+’SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
14138 O46240 #2, (SP) : ADJUST RETURN ADDRESS 
14139 O46244 O00406 BR STYPON 
14140 O4624%6 112737 OOD001 O4644S STYPOC: MOV2 #1,SOFILL -:SET THE ZERO FILL SWITCH 
14141 O462S54 112737 OOODDS O46447 MOVE #6, SOMODE+1 -:SET FOR SIX(6) DIGITS 
14142 O46262 112737 OO000S OGY6444 STYPON: MOVB #5, SOCNT -:SET THE ITERATION COUNT 

MOV R3, -(SP) »: SAVE RI 

MOV RY’ -(SP) Hey RY 

MOV RS’ -(SP) -SAVE RS 

NOVE SOMODE+1, RY -:GET THE NUMBER OF DIGITS TO TYPE 


ADD a6, R4 SUBTRACT. sa fi MAX. ALLOWED 
MOVB RY, SOMODE 





14150 14 113704 MOVB  $0FILL,RY FO ust L SWITCH 
1415] tae diteene 000012 MOV PO apy RE THe 2 IneuT Wi one 
14152 0463204 005003 CLR R3 :CL FAR R THE OUTPU 

14153 046326 006105 1S: ROL RS : ;ROTATE MSB INTO a 

14154 046330 OO0404 BR 3§ GO D 

1415S O46332 006105 2g: ROL RS : FORM THIS DIGIT 

14156 046334 006105 ROL RS 

ieg Beng ile Be 

thts: Bue e Boet 3S: ROL R3 ::GET LSB OF THIS DIGIT 
14160 O46344 105337 o46446 DECB  SOMODE ;;1YPE THIS DIGIT? 

14161 O46350 49001 BPL ? ) 
14162 03 177770 BIC #177770,R3 IGE RID OF JUNK 

14163 046356 001002 BNE ug :: TEST FOR O 

14164 046360 005704 TST RY ti SUPPRESS THIS (i? 

14165 O46362 001403 BEQ S$ BR IF Y 

14166 046364 O0S204 ug: INC RY ::DON’T SUPPRESS ANYMORE 0°S 
14167 O46366 052703 oo0060 BIS #°0,R3 MAKE THIS DIGIT ASCII 
14168 046372 052703 Og00040 cS: BIS 4’ 'R3 : : MAKE ASCII IF NOT ALREADY 
14169 046376 110337 O4644e2 MOVB  R3,8S 11 SAVE FOR TYPING 

14170 O46402 104401 O4E4He TYPE 9g -GO TYPE THIS DIGIT 

14171 O46406 105337 O46444 75: DECB 3406=-«s SOCNT : + COUNT 


14172 O4641e 003347 BGT 2$ + BR IF MORE TO DO 


MA C-11-DERHAC-A MACY11 27(732) 

TERRE Pit t BINARY TO OCTAL <ASCII) AND TYPE 
i Res Reo ie 

Be 

14175 Bue vat 4M RQ 
117% Oublee O1c60S 6$: mv 
1iide Bueuse ise NOY 
14179 O46430 016666 O00002 o00004 MOV 
tie Bueae  pooeGS RTT 
14] uy BB 8S: .BYTE 
14183 O46443 000 . BYTE 
ui S444 000 SOCNT: .BYTE 
14185 644S 000 SOFILL: .BYTE 
14186 O46446 coolo SOMODE: .WORD 


ae athe 07:55 PAGE 267 


6$ 

RY 

eS 
(SP)+,R5 
(SP +, Re 
(SP)+,R3 
2(SP),4(SP) 
(SP)+, (SP) 
0 

0 

0 

0 

0 


ESE REL REL * 
eee & 


:;SET THE STACK FOR RETURNING 


URN 
3855 ORAGE FOR ASCII DIGIT 
+ sera alate FOR TYPE ROUTINE 
:2OCTAL DIGIT COUNTE 
tt ZERO F Marat 
i AUMBER- OF DIGITS TO TYPE 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


MACY11 27(732) 


TRAP DECODER 


v2 Oie608 00002 
S74 


uy 

y 
046464 
046470 


046472 


pth 


016000 
000200 


040460 


O46S04 


000004 90000e 
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.SBTTL TRAP DECODER 
Nee eg oT EE OE ee 


He ‘ use IT To Thbex. ThROuG QUGH THE TRAP TABLE FOR THE STARTING AOORESS 


+ $G0 TO THAT ROUT! 


STRAP: 


F THE DESIRE 
NOV RO, -(SP) 
MOV e(SP), RO 
TST (RO) 
MOVB (RO) RO 
ASL 
MOV STRPAD(RO) ,RO 
RTS RO 


a THEN USING THE ADDRESS OBTAINED IT WILL 


; SAVE RO 
GET Pay g 


9 K 
Ret RIGHT YTE OF TRAP 
; POSITION val INDEXING 
300 TO TO T 

;GO TO ROUTINE 


-: THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAPe: MOV 
MOV 


.SBTTL 


; #BY 


$TRPAD: 


tay THE 


(SP). - 
4(SPS, Stsp) 


TRAP TABLE 


; sMOVE THE P C DOWN 
: HOVE THE FSi 00 OWN 
ORE T 


ABLE A SONTATMS ct » daeabdinn ADDRESSES OF THE ROUTINES CALLED 


. WOR $T RAPe 

: }CALL=TYPOC 
+ CALL= TYPON 
;;CALL=TYPOS 


; CALL=RDCHR 
+ }CALL=RDL IN 
3 CALL L=RDOCT 
; CALL=WAT 


TRAP4+1(104401) TTY TYPEQUT ROUTINE 
TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TRAP+3( 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 


TYPE OCTAL NUMBER (AS PER LAST CALL) 


TRAP+5( 104405) TYPE DECIMAL NUMBER (WITH SIGN) 


+ TYPEIN CHARACTER ROUTINE 
TRAP+7( 104407) TTY TYPEIN STRING ROUTINE 

TRAP+10( 104410) READ AN OCTAL NUMBER FROM TTY 
TRAP+11¢104411) DONT ADD ABOVE THIS TRAP 


TRAP +6 ( 104406 ) 


—— OC ee ee ee a a eee 
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DERHAC.P11 POWER DOWN AND UP ROUTINES 


.SBTTL POWER DOWN AND UP ROUTINES 
14234 + KLEE ERLE KASH A KEE RE EAR H EE REA LEK EE REE ERE SESE EXELL SELES EEA ERE ELSE 





14235 BOWER DOWN ROUTI 
14236 046530 012737 046674 O00024 bDURBN: OM AS LLUP Q¥PWRVEC ; SET FOR FAST UP 
14237 O46536 012737 O00340 O00026 NOV #340 a WPURVEC#2 ; }PRIO 
14238 O46S544 010046 MOV -(Sp ‘PUSH’ a0 ON STACK 
14239 O46546 010146 MOV Ri’ (8p) ; PUSH R1 ON STACK 
14240 O465S0 010246 MOV Re: -(SP) -PUSH Re ON STACK 
14241 O465S2 010346 MOV R3,-(S5P) PUSH RS ON STACK 
weve 046SS4 010446 NOV RY, ~( P) ; 3PUSH BY RY ON ST TACK 
tise BUBEEs Bt 132354 MOV SAR -(SP) PU SH aSWR ON eck 
14 DubaGs 019 37 046700 MOV P S$SAVRE S 
14e46 O46 12737 O4660e2 000024 MOV RSPRRUP JePWRVEC’ SET UP VECTOR 
14247 046576 O00000 HALT 
14e4e 000776 BR .-2 »:HANG UP 
14250 > SLKERKEEEELKE SEERA ERRE SHALE EE RLKEE HEL ERR HA ESLER LE RE EEL ELH A EERE GF 
14251 SBOWER UP ROUTINE 
14252 O46602 012737 O46674 000024 $PWRUP: MOV aSILLUP Q¥PURVEC ; ;SET FOR FAST DOWN 
hes feels Guru Bere se [roo Fon, ne Tr 
sia 

14°55 RUBE SO reset 67 1S: INC iam BH BOR THE ING 
14256 O4662e4% 001375 BNE 
14257 O46626 012677 132306 MOV t8p)+, aSUR + POP STACK INTO aSWR 
14258 O4663e 012605 MOV (SP)+'R5 :POP STACK INTO RS 
14259 046634 012604 MOV (SP)+,R4 ::POP STACK INTO 

046636 012603 MOV (SP)+'R3 -:POP STACK INTO R3 
14261 O46640 012602 MOV (SP)+)Re -:POP STACK INTO Re 

O46642 012601 MOV (SP)+'RI -:POP STACK INTO R1 
14263 O46644 012600 MOV (SP)+'RO ;;PQP_STACK INTO RO 
14264 O46646 012737 046530 o00024 MOV #SPWRON, J#PWRVEC : joer UP THE POWER DOWN VECTOR 
1426S O46654 012737 000340 o000e6 MOV #340, J#PWRVEC+E ;:PRI 
14266 O46662 10440) _ TYPE : REPO i” ue POWER FAILURE 
14267 O46664 046702 SPWRMG: .WORD  SPOWER SHER FAIL MESSAGE POINTER 
14268 O46666 012716 MOV (PC)+, (SP) : RESTART T BEGIN 
14269 046670 O0SS22 SPWRAD: .WORD BEGIN : = RESTART ADDRESS 
14270 O46672 O00002 RTI 
14271 046674 oo0000 SILLUP: HALT ;;THE POWER UP SEQUENCE WAS STARTED 
14272 046676 000776 BR 2 :: BEFORE THE POWER DOWN WAS COMPLETE 
14273 046700 O00000 SSAVRE: 0 -:PUT THE SP HERE 


14e74 O4670e 005015 047520 O4e2Se7 SPOWER: .ASCIZ <15><12>"POWER™ 
iuSoe 046710 O00lee EVEN 


MAINDEC-11-DERHAC-A 
DERHAC.P11 


044440 


MACYL1 27(732) 
POWER DOWN AND UP ROUTINES 


s LELRAALELLLELA LALA LAALLLELLLALLLLLELL ALL AALA LL LEAL LALLA ELALAAELERLELRLLE 


: 
;ERROR AND MESSAGE TABLE CONDIMENTS 
eitttiiittiittti titi iti ttt tt iti i iii ietriteciiiec iret ererertietriierre: 


020105 
051501 
051104 
040S27 


032062 
O4e116 


031060 


O44 122 


041511 
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EMI: 


EMe: 


EM3: 


.ASCIT 


-ASCIZ 


-ASCIT 


~ASCIZ 


-ASCTI 


/THE RH BASE ADDRESS WAS 172040 INDICATING AN RS BUT THE DRIVE TYPE/<15> 


/DID NOT CONTAIN 0 OR 1 OR 2 OR 3 OR 47 


/THE RH BASE ADDRESS WAS 176700 INDICATING AN RPOY,S,& BUT THE DRIVE TYP 


/DID NOT CONTAIN 20020, 24020, 20021,24021,20022, OR 240ee/ 


“THE RH BASE ADDRESS WAS 172440 INDICATING A TMO2 BUT THE ORIVE TYPE/<15 


—— — 


el _ -—— ee Ee ee ee ee ee el 








MAINDEC=11-DERHAC-A__—_—=OMACY! 
DERHAC. Pll BOWER DOWN AND 
14333 052101 047111 
14338 Ou1040 Ose125 
14336 O42S10 O4S090 
14aae DOSES Ole 
4 Tod oNelii 
14340 OS2117 O41440 
14341 o4os24 047111 
14342 031064 60 
14343 

14 044124 105 
14345 041040 051501 
14346 042101 051104 
14347 020123 040527 
14348 033461 031466 
14349 044440 042116 
14350 052101 047111 
14351 04751S O42522 
14352 040510 020116 
14353 020105 044122 
14380 Boese4 
143ee io 
14 044522 042526 
143 050131 020105 
Hie) Gree Bes ei 
1a3e1 i 

14362 O26062 026063 
14363 047602 030062 031060 
14364 047610 032062 031060 
14365 047616 005015 

14366 047620 030062 031060 
14367 047626 032062 031060 
14368 047634 030062 031060 
14369 047642 031060 
14370 047650 032061 030062 
14371 047656 005015 — 000 
14372 047661 111 O4e116 
14373 047666 052101 O47111 
14374 047674 047516 051040 
43 7702 042504 O44S26 
14376 047710 OS0040 O425e2 
14377 ON7716 OS2l16 000 
14379 047721 ‘124 

14380 B47786 o4ueiE ae 
14381 047734 O44Se4 

1438 047742 052617 

14384 bursee 

14385 047764 020105 

14386 047772 053517 

14387 OSO000 042101 051104 
14388 OS0006 O42523 026123 


7(732) 
i ROUTINES 


020107 


044440 


OS-SEP-76 07:55 PAGE 271 


EM4: 


EMS: 


.ASCIZ 


-ASCIT 


.ASCII 


-ASCIZ 


»ASCIZ 


.ASCII 


/DID NOT CONTAIN 1420107 


/THE RH BASE ADDRESS WAS 176300 INDICATING MORE THAN ONE RH DEVICE BuT/< 


/THE DRIVE TYPE DID NOT CONTAIN O,1,2,3,4,20020, 24020, 7<15>< 12> 


720021, 24021, 20022, 24022, 1420107< 15><1e> 


“INDICATING NO RH DEVICE PRESENT/ 


/THE UNIBUS TIMED OUT FOR EACH OF THE FOLLOWING ADDRESSES, INDICATING/<1 


DEANAC-PLL POWER DOWN AND 


ee 





SSIICTSSR PS See 


27(732) 
UP ROUT 






40 
051111 
047125 
046Se5 


“ee 07:55 PAGE 27e 


EM6b: 


.ASCIZ /NO RH ON THE SYSTEM SO ABORT PROGRAM/ 


.ASCII 


.ASCIZ 


.ASCII 


~ASCIZ 


-ASCIT 


/AFTER AN RH CLEAR (RHCS2-BIT #5) RHCS2 DOES NOT HAVE ONLY IR/<15><1le> 


ZAND UNIT NUMBER/ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15><le> 


/READING IT BACK, CAUSED RHDB TO HAVE WRONG VALUE GIVEN IN “BAD"/ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15><le> 


mn ee ae or =o. 


TTT TT 








NOEREREN TRS 


CRU TRU OUR CUO COON AGN 
VERONVERS 


hae a SS bb be hb bs = ps pe be fb 
bos hes pe bs ps 2 hs 


o 
oO 


MAINDEC-11-DERHAC-A 
DERHAC.P11 POWER D 


MACY11 
OWN 


AND UP ROU 


uses O42101 
020107 OSe2111 


l 
021104 


27(732 


047111 
040 





) 
TINES 
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EML1: 


EMle: 


-ASCIZ /READING IT BACK, CAUSED RHCS2 TO HAVE WRONG VALUE GIVEN IN “BAD”/ 


-ASCIT 


-ASCIZ 


.ASCIT 


~ASCIZ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15><12> 


“READING IT BACK, CAUSED RHCS1 TO HAVE WRONG VALUE GIVEN IN “BAD”"/ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDOB ANDO’ <15>< 12) 


/READING IT BACK, CAUSED RHCS3 TO HAVE WRONG VALUE GIVEN IN “BAD”/ 





MAINDEC-11-DERHAC-A 
DERHHC.Pil 
14501 
14502 1165 
14503 1172 
14504 1200 
14505 1206 
14S06 1214 
14S07 le22e 
14S 1230 
14S 1236 
1244 
ios 
15e4 
le7e 
300 
306 


BR 


# 


R RARRARRARRARRRRRARRRR 


SSIeR Be 


SELL 
RSs 


FER REN RENEE 


Ry 
ERR 


RRRRRRRRRRA RRRARRRRARRRRRRRRRRR 
& 


pas b— b= be pe Fs bb bb bs bb bh bb ee be fe pe hb ph ps pe Pp 


043101 
046103 
043516 


229 
eee 


MACY11 





27(732) 


ata 


047111 
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POWER DOWN AND UP ROUTINES 


EMi3: 


EM14: 


EM1S: 


»ASCTT 


~ASCIZ 


-ASCIT 


»ASCIZ 


-ASCII 


-ASCIZ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15>< 12> 


/READING IT BACK, CAUSED RHBA TO HAVE WRONG VALUE GIVEN IN “BAD"/ 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15>< 12> 


“READING IT BACK, CAUSED RHBAE TO HAVE WRONG VALUE GIVEN IN “BAD"/ 


“AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<1S>< 12> 


/READING IT BACK, CAUSED RHWC TO HAVE WRONG VALUE GIVEN IN “BAD”/ 


EF | EE Ge ee cen tte —_—- ~~. 


MAINDEC-11-DERHAC-A 
POWER DOWN AND 


DERHAC . P 


14557 
4558 
i459 





ll 


0S16Se2 
051660 


RARAR RRRRRRAR 
~~~ vo" 
See 


Seu any 


i 
S 


Be 
oO 


0S2331 





MACY11 


052106 


27(732) 
UP ROUTINES 


051105 


EMIE: 


EM17: 


EMeO: 


-ASCIT 


~ASCIZ 


-ASCIT 


-ASCIZ 


.ASCII 


“ae 07:55 PAGE 275 


/AFTER CLEARING THE RH AND WRITING ONE WORD INTO RHDB AND/<15>< 12> 


/READING IT BACK, CAUSED RHCS2 TO HAVE WRONG VALUE GIVEN IN “BAD"/ 


/AFTER CLEARING THE RH AND WRITING TWO WORD INTO RHOB AND/<15>< 12> 


/READING IT BACK, CAUSED RHDB TO HAVE WRONG VALUE GIVEN IN “BAD"/ 


/AFTER CLEARING THE RH AND WRITING TWO WORD INTO RHDB AND/<i5><le> 


> -——o @ SE rrr ee ty Get Ge ee ee 


MAINDEC-11-DERHAC-A 
DERHAC.P11 R 


bee fe Po b= b> Pb bs Be 


oop SER ORB eNRReRReR 


1464e 
14643 
yy 








e 
053017 


POWE 


SOBURER 
a-es Boast? 


ABPPARLP 
Pati tetatee a= 


= 
™N 
be f= 
oO 
yee 


MACY11 


DOWN AND 


040505 


27(732) 
UP ROUTINES 


051101 
4124 


' 1105 
1101 
044124 


Ole 
044504 


EMel: 


EMee: 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


~ASCIZ 


— 07:55 PAGE 276 


“READING ONE BACK, CAUSED RHCS2 TO HAVE WRONG YALUE GIVEN IN “BAD” 


/AFTER CLEARING THE RH AND WRITING TWO WORD INTO RHDB AND/’<15><1e> 


/READING IT BACK TWICE, CAUSED RHDB TO HAVE WRONG VALUE GIVEN IN “SAD”/ 


/AFTER CLEARING THE RH AND WRITING TWO WORD INTO RHDB AND/<15>< 12> 


“READING IT BACK TWICE, CAUSED RHCS2 TO HAVE WRONG VALUE GIVEN IN “BAD”- 


SS cee 


O6 


POU 51 OE RHAE Oe pon ne 27(7 wee O7:55 PAGE 277 


WN AND UP ROUT 


EMe3: .ASCII /AFTER CLEARING THE RH AND WRITING EIGHT WORD INTO RHDB AND/<15>< 12> 


-ASCIZ /READING IT BACK, CAUSED RHCSe TO HAVE WRONG VALUE GIVEN IN “SAD”"/ 













14703 124 19 OS1040 EM24: .ASCII “THE RH WAS CLEARED AND A PATTERN OF @ WORDS WERE WRITTEN INTC RHOB/<15> 
1u708 633390 cecilia paces? be0is3 
14705 053336 046103 04 042522 
14706 053344 020104 047101 O20104 
14707 053352 020101 04 052124 
14708 953360 051105 O20116 043117 
147 034040 OS344O 051117 
14710 053374 051504 05 051105 
14711 OS3402 020105 051127 OS5e2111 
14712 053410 O42524 047111 
14713 O53416 Oy7se4 051040 O¥2110 
14715 053427 O44S04 ASCII /READING RHDB FOR THE “N” TH. TIME GAVE WRONG VALUE IN RHDB/<15><12> 
14716 053434 043516 051040 O42110 
14717 OS3442 020102 047506 020122 
14718 OS34SO 044124 020105 O47042 
14719 053456 044124 20056 
OS3464 O44524 O425iS O43440 
14721 053472 053101 O20105 051127 
14722 053500 047117 O20107 O40S26 
14723 053506 052514 020105 047111 
14724 053514 O51040 o42110 opesde 


—— ~~ er ee — - 


MR INDEC-11-DERHAC-A 
DERHAC.P11 





0S3S2e2 
0$3S23 





OS416e2 
054170 


Ole 
42 


asi 
REPRE? & 


ARPRBIR BARR 
aatoc tates 
PPR PPERRRIRS 


ELPEPL 


MACY! 
POWER DOWN AND 


020104 
053101 


27(732) 
UP ROUTINES 


te fur 


EH 
oe 
w 


020105 


U6 
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EM32: 


EM34: 


~ASCIZ 


-ASCIT 


.ASCIZ 


7“N" IS GIVEN IN WORD NO/ 


/THE RH WAS CLEARED AND A PATTERN OF 8 WORDS WERE WRITTEN INTO RHDB/<iS> 


-ASCIZ /AFTER READING ALL 8 WORDS, FOLLOWING REGISTER CONTAINED WRONG VALUE SIV 


“SETTING RH CLEAR (RHCS2@-BIT #5) CAUSED ERROR REGISTER 1 TO HAVE WRONG V 


~ASCII /AN RH CLEAR WAS GIVEN RHER] WAS CHECKED TO HAVE ZERO. PAT <RHCSe-BIT #4 


MAINDEC-11-DERHAC-A MACY11 27(732) O9-SEP-76 07:55 PAGE 279 
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DH147: 


OT1: 
OTS: 


.ASCIZ 
.ASCII 
.ASCIZ 
.ASCII 
.ASCIZ 
-ASCIT 
.ASCTZ 
.ASCIT 


~ASCIZ 


-ASCIZ / 


-ASCIZ 


EVEN 


. WORD 
. WORD 


~ 


/ NO GOOD BAD/ 

/PC TEST IPCK RHWC RHWC/<15><12> 
/ NO GOOD BAD/ 

/PE TEST RHDS1 RHDS1/<15><le> 

/ NO GOOD BAD/ 

“PC TEST PC OF BIT WAIT REG/<15><l2> 
/ NO WAT FOR ADDR ” 

“PC TEST REG. GOOD BAD/<15><i2> 
/ NO ADDR BATA DATA/ 

“PC BASE VECTOR/ 

/PC BASE ADDRESS/ 

SERRPC , SBDDAT 

SERRPC,RSCS1, Acs! , TMCS1,MIXCS1,0 


MA C-11-DERHAC-A 
DERHAC-P11 POWER 


066610 





865008 


=— =| = 
5505 C 
bs ph b= bb be = pe = 
-— >— >= > b— >= bb pb 
Prin foro 
o’.£o° £o° 





ewe 
o 


~- 
o 


8888 
Sr ipee 


z 


-_ 
o 


0000 


-_— 
o 


01 


MACY11 27(73e2 


) 
DOWN AND UP ROUTINES 





peegeg&s 
4656 O046be 
004656 004672 
004670 00000 
004656 001122 
001126 
324 005326 
005324 000000 
000 
000 000 
Bbo ~=S«COOD 
000 000 
000 
000 O00 
000 
000 OOD 
000 
000 ©=«-«ojn 
000 
000 @©=«G@jodn 
000 
000 42—s«émrane 
900 
000 «4=—fsé«éket 
000 


ar J 
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DTé: 
OT24: 


OT104: 
OT10S: 
DT106: 
D0T135: 
DT137: 
OT146: 
OT147: 


DF 1: 
OFS: 


DFE: 
OF 24: 


OF 104: 
OF 10S: 
OF 106: 
OF 135: 
OF 137: 


OF 146: 
OF 147: 


. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 


SERRPC, TSTNM, SGODAT , SBDDAT , 0 
SERRPC, TSTNM, SILONM, SGDDAT , SBDDAT , 0 
SERRPC, TSTNM, IP, SGDDAT , SBDDAT , 0 
SERRPC, TSTNM, IP, SGDDAT , SBDDAT , 0 
SERRPC, TSTNM, IP, SGDDAT , SBDDAT , 0 
SERRPC, TSTNM, WAITBT,WAITPC,WAITRE,O 
SERRPC, TSTNM, SBDADR, SGODAT , SBDDAT , 0 
SERRPC, TESTDV, TESTVC,0 

SERRPC, TESTDV,0O 


0,0 
0,0,0,0,C 
0,0,0,0 
0,0,0,0,0 
0,0,0,0,0 
0,0,0,0,0 
0,0,0,0,0 
0,0,0,0,0 
0,0,0,0,0 


0,0,0 
0,0 


NO? 
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ACL = OOO0N0 BIT3 = 000010 067014 
acy = ABBR Bitd = poonee 034 
Bee = ARBRE BtT5 = BRBABRR pee ses 
ac OR: 7% 
ane tis i: a si 
ar = o00002 BPIVEC= a4 066061 
ee 8 | 
ATS = 600090 BUF OW K ? 
a: SoD "t pesise 
Big = BROdRS KECK Bpese? 
a ee pe 
BASEAD DO4704 ccR = BeEcTT 
BASECH 042254 CLRBIT O046S4 066540 
BASEMA O04712 CMNORP 041572 065527 
Seve’ 004714 CMNORS O41 65567 
SINX 04766 CMNDTM 41710 065637 
BBY TE RBMND 464 Be 14 
ee? TE Sis See _ eae 
BEGIN key BBOD! = eta 
BFEVEN G03000 ke = OOODID = 790000 
BFODD  00300e fA = OO0006 = 000020 
Bea = BpnCbT BBL = obeuD 35000 
BH TRS = BRSRRS K = {o00b0 BoDsGD 
BITO3 = OO0010 CL _= 000100 000200 
ee Ba aa 
BITOe = 00100 Nl = 000400 000026 
A nn ee es 
BITO9 = 001000 DEVPNT 005300 066566 
BITi = O0000e2 DE1 = 000 066636 
Ne Ey na 
BITle 2 810000 OFi1  Ob66750 Gee GB 
BIT14 : 0000 Fibs 066778 BT 4g oee 
BtT45 = AgpRRG Bride = Be>oee Brsd” = Bebe 3s 











FBASEA O0S426 
FC = QO0006 


FMT4Y = Q00100 
FMT§ = BAO 00 
FOR 504776 
F 005436 
FSLAVE QOS446 
aN 00540 
yo N fang gh 
FYECTR OOSdi6 
GIVE o0S006 
GO = 00000 
GRY = CO0010 
3 = 0002 
HC = 002000 
HCRC = pee 
HER Si 


the © > BOSH 


wee 6 em 


* i ee 7-2 —- ewe ee ee 


BUS 
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DERHAC.P11 SYMBOL TABLE 
NHS = Q02000 PR7 = 000340 RO =000000 SWO8 = Q00400 
NML = = 000300 PS = =_-:177776 Rl =%000001 SWOS = 001000 
NMRHS 004764 PSEL = 002000 Re  =%000002 SWi_ = 000002 
G 004644 PSU = 000001 R3  =%000003 SW10 = O02000 
NOPERA 004134 PSW = 177776 R4  $=%000004 SW11 = QO4000 
TYPNT 00536 PUTREG O4144e RS  =%000005 SWl2 = 010000 
OCYL = 100000 WRVEC= 000024 R6 §$ =Z000006 SW13 = 020000 
= pate sige = tH R?  =2000007 SWi4 = 040000 
REV = 00020 RDLIN = 104407 = SW1S = 100000 
OFSETC OO4166 RDOCT = 104410 SCl 000100 SWe = O00004 
OF 100 = QO0004 OY = 000200 SC10 = 001000 SW3 = Q00010 
OFe00 = 000010 READAT 004160 = 000200 SW4 = Q00020 
OFeS = 00000 READI 174 sCe0 = 002000 SWS = QOOO4O 
OF4O0 = 000020 RECALI OQ04140 CY = Q00400 SW& = 000100 
OFSO = O0000e REFOR O0416e2 SEECOM O04164 SW? == 000200 
800 = Q00040 REINTO OO44e4 RCH 4146 SW8 = Q00400 
OPERSE O4065 RELEAS 004144 SETBIT O046Se SWS. = 001000 
OPI = Q20000 RESVEC= 000010 IZ QO Si = 009001 
= ETCL 004170 LO 6 Se = Q00002 
PAR = 000010 REVRED 004200 SKI _ = Q40000 Ss4._—-_ = -QO0004 
PARE7O= 000114 REVWRT O04204 SLAVE OQ04660 TBITVE= O00014 
PARITY 037746 REWIND 004176 SLVPR = 002000 Te = Q00032 
PAT = 000020 RHAS 004076 SN. = 000030 TOF = QOO040 
PC _ =%000007 RHBA O04064 SND1 06124 TESTAD O4065S2 
PCJSR OQ403Se RHBRE 004130 SP ___ =~000006 TESTDV 005324 
020000 RHCA 004114 SPACFD O04e0e TESTVC O0S326 
PERMX 005264 RHCC 04100 SRO = 177572 TFO Je 
¥V 005274 RHCCA 004116 SRI = TIEOQUT 03761 
PERNUM 005276 RHCS1 4060 SRe = 177 TIMCNT O4O4SE 
GS260 RHCS2 004070 SRS = -172516 TKVEC = 0 
PERRPVY 005270 RHCS3 O00413¢2 $S1 007376 TMCSl OQO040S2 
RHDA OQOO04066 SSe TMPSLY QOS 
PERRSV 005266 RHDB_ 004102 $S3 010506 TMPO 8 =©6005250 
PERTU  O0S26e RHDST O04066 SS4 010530 TMP 1 
PERTUV RHDS1  Q0407e SSS 010S46 TMPY y 
PGE = 002000 R 004106 S36 006612 = 000067 
= 020000 RHECL  O04124 SS? 06 TOTALA QO0S24 
MDPE = O004CO PIRQ = 177772 RHEC2 OQ04126 $$8 010554 TPVEC = Q0006 
NEMERR 005520 PIRQVE= 000240 RHERL Q04074 STACK = 001000 TRAPVE= 000034 
‘ee ae 
MIXCS1 OO40S4 POINT 005360 RHFC OQO4066 sTe00 05012 TRK1O = O40000 
MMVEC = 50 020 RHLA 004100 SWR Ate TRKe = 010000 
MOL = 010000 SEN OO4056 RHMR QO04104 SWREG 0176 TRKeO = 100000 
MPE = QOO400 PRITEM 045100 RHOF O4lle SWO 8 = 000 TRKY = 020000 
MR 8=€=6= 000024 = 001000 RHSN QO04110 SWOO = Q00001 TRTVEC= Q00014 
MRD = 000020 0 00000 RHTC OO4I11le SWO1 = Q000 TSBAE 140 
MSE = 000020 = 000040 O6e SWOe = 000004 220 
MSTCK = 000010 PRe = 000100 RMR = QO0004 SWO3 = 000010 TSCOMD 200 
MWR = OO0040 PR3 = 000140 RPCS1 004050 SWO4Y = 000020 TSCS3. 005160 
MXF = 001000 PRY = 000200 RPVEC 002716 SWOS = QO0040 TSDEVI + Q0S034 
NED = 010000 PRS = 000240 RPVECT 043056 SWO& = 000100 TSINOX 005116 
NEM = 004000 PRE = 000300 RSCS1 OO4046 SWO7 = 000200 TSRHNO 005014 


——= - - -_ —_—-<. os —s ee -— “ & . SCL SS a at ree ee i eee -_- 


. 
ee EE ee ae ee et ee eee ee 


COS 
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HAC.P11 - SYMBOL TABLE 
TSSLAVY 005074 TSTS4Y 033504 WCE = Q40000 SERRPC 001116 SRTNAD 037566 — 
TSTNM OQO46S6 TSTSS 033732 WCEEW = O04000 SERRTB OO0leeb S$SAVRE 046700 
TSTOTL O0S114 TSTS&6 O34160 WCEOW = 010000 SERRTY 045102 S$SCOPE 043120 
TSTUNT OQO0SSO6 TSTS7? O34406 WCF = QO0040 SERTTL OOl11e S$SETUP= 000017 
006162 T6 012514 WCU = Q00001 001214 SS1_ = 000000 
TST10 13276 TST60 3 034634 E = 004000 SFILLC 001156 S$STUP = 1 
TST1ll TST61 O35S062 WORKBS 004770 SFILLS 001155 $SVLAD 043334 
TSTl2 014126 TST62 035316 RKNM 004772 001120 S$SWR = 167700 
TST13 4430 TST63 035554 ORKVC 004774 SGDDAT 001124 WRMK= 00 
TST14 O1S11e2 TST64  Q360le WORUNT 005510 $GET42 037544 S$TIMES OOlele 
TST1S 016022 TST6S O36e50 CHOT (04152 $HD = Q00000 TKB 
TST16 34 TST66 #036506 CHEK 004150 SHIOCT O4474e STKCNT O44O44 
TST17 §=©017646 TST67 3 03674 WRFROM OO04210 SICNT 1 STKINT O44O64 
010632 Ole WRIDAT O04] SILLUP O46674 QEN= 044063 
TSTe0 TST70_ 037210 WRIFOR QOO41 SINTAG O00 STKQIN O44O46 
TSTel 21476 TSUNIT O0S5054 = 004000 SITEMB 001114 O44 
TSTee 022110 TSVEC 005120 WRTBIT O04 SLF $TKGSR O440S2 
TSTe3 Oee4 U = 000100 = 000400 SLPADR 001106 001144 
TSTe4Y OeeS TYPOS = 104405 U = 000 SLPERR 001110 STKSRV O441 
TSTeS O22750 = 104401 SAUTOB 00113 SMNEW O44573 001176 
023132 TYPERR OQ46022 $BDADR O01l2e 62 S$TMP1 001200 
TSTe7? Oe3 TYPNT O0533 SBDDAT O01126 76 $TMP2  O01e0e 
011430 YPOC = 104402 LL 1216 S4 STMP3 001204 
TST30 TYPON = 104404 $CHARC 04 000001 STMP4 001206 
TST31 Oe4ele TYPOS = 104403 SCMTAG 001100 44 $T 001210 
TST32 024614 UNIT 005010 $CM1 = 000006 6446 STN = 00007 
TST33 O2S34e UNLOAD 004136 $CMe = 00001 e $TPB 001152 
TST34 026070 UNS _ = Q40000 M3 = O00006 001100 STPFLG 00115 
TST35 USEVEC O04 = 000006 046702 STPS 001150 
TST36 O27064 USi1 = QG0001 SCNTLC QO44S4 6670 STRAP O46 
TST37 USe = 000002 SCNTLG Q44SSS 046530 S$TRAP2 O4647e 
011732 USY = 000004 SCNTLU O44SS0 046664 $TRP = QOOU 
TST4O0 030060 UWR = Q00010 SCRLF OO0le23 STRPAD O46 
TST41 030306 VECPNT 005310 SDBLK 043614 001222 STSTNM 001102 
TST4¥2 030534 1 baal 00S51e2 SDOAGN 037564 0443 STTYIN OQ44S 
TST43 030762 VUF_ = 000002 SOTBL 043604 044424 $TYPOS O43400 
TST44 031210 a = 010000 SENDAD 037554 044604 $TYPE  O43624 
TST4YS 031444 = 000100 SENDCT 037522 000011 STYPEC O43 
TST46 031672 WAITET 004672 SENDMG 037573 001160 STYPEX O44O42 
TST47 WAITPC OO4666 SENULL 037570 001162 STYPOC QO 
Oleele WAITRE QO0467 SEOP 46 001164 STYPON O46262 
TSTSO 46 WAIT.T O40460 SEOPCT 037514 001166 S$TYPOS O46eee 
TSTS1 032574 = 10441 SERFLG 001103 001170 SXTSTR O4314C 
TSTS2 033022 WATO OO4646 SERMAX 001115 001172 SS$GETY= 000000 
TSTS3 gt WC = 00000e SERROR O44744 001174 SOFILL O4644S 


ERRORS DETECTED: O 
DEFAULT GLOBALS GENERATED: 0 


*DERHAC , DERHAC/SOL /PAGNUM=DERHAC. SML[400,43351, DERHAC.P11[400, 4355) 
RUN-TIME: 105 157 2 SECONDS 
RUN-TIME RATIO: 327/265=1.2 
CORE USED: 38K (75 PAGES) 


Cn Ee ee ee ee 


ee eee - ~~ 


DOS 
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